Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Structure

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