Structure Money
Private centsAmount As Integer
Public Sub New(ByVal amount As Double)
Me.centsAmount = CInt(amount * 100)
End Sub
End Structure
Module MyModule
Sub Main()
Dim freebie As Money
Dim carPrice As Money = New Money(3.95)
End Sub
End Module