'Listing 27.2  27LIST02.TXT  --- Ustalenie dugoci pola znakowego

' wpisz do moduu kodu
Type UserType
  Fname As String * 5
  LnAme As String * 25
End Type

Public Names As UserType

Private Sub Command1_Click()
  Names.FName = "Jonathan"
  Names.LName = "Doe"
  Form1.Print "First Name = " & Names.FName
  Form1.Print "Last Name  = " & Names.LName
End Sub
