'Listing 18.3 18LIST03.TXT Zmienne zadeklarowane domylnie.

Sub Form_Click()
  A_String = "Visual Basic 4"
  A_Long = 987654321
  An_Integer = 256
  Total = A_Long = An_Integer
End Sub
