Public Enum Countries
  USA
  Italy
End Enum

Public Class Customer
  Public Name As String
  Public City As String
  Public Country As Countries
  Public Orders As Order()
  Public Overrides Function ToString() As String
    Return String.Format("Name: {0}  City: {1}  Country: {2}",
      Me.Name, Me.City, Me.Country)
  End Function
End Class

Public Class Order
  Public IdOrder As Integer
  Public Quantity As Integer
  Public Shipped As Boolean
  Public Month As String
  Public IdProduct As Integer
  
  Public Overrides Function ToString() As String
    Return String.Format ( _
      "IdOrder: {0} - IdProduct: {1} - " & _
      "Quantity: {2} - Shipped: {3} - " & _
      "Month: {4}", Me.IdOrder, Me.IdProduct, _
      Me.Quantity, Me.Shipped, Me.Month)
  End Function
End Class

Public Class Product
  Public IdProduct As Integer
  Public Price As Decimal

  Public Overrides Function ToString() As String
    Return String.Format("IdProduct: {0}  Price: {1}", Me.IdProduct,
      Me.Price)
  End Function
End Class
