'Listing 27.3  27LIST03.TXT -- Zagniedona struktura (cz w module kodu)

' wpisz do moduu kodu

Type Address
  Street As String
  City As String
  Zip As String
End Type

Type UserType
  Fname As String * 10
  LnAme As String * 25
  Addr As Address
End Type

Public Names As UserType

'Listing 27.3  27LIST03.TXT -- Zagniedona struktura (procedura zdarzeniowa)

Private Sub Command1_Click()
  Names.FName = "Jonathan"
  Names.LName = "Doe"
  Names.Addr.Street = "AnyStreet"
  Names.Addr.City = "AnyTown"
  Names.Addr.Zip = "00000-00000"


  Form1.Print "First Name = " & Names.FName
  Form1.Print "Last Name  = " & Names.LName
  Form1.Print "Street = " & Names.Addr.Street
  Form1.Print "City = " & Names.Addr.City
  Form1.Print "Zip = " & Names.Addr.Zip

End Sub
