Public Class Customer
Public Age As Integer
Public Name As String
Public Country As String
Public Sub New(ByVal name As String, ByVal age As Integer)
Me.Age = age
Me.Name = name
End Sub
' . . .
End Class
