'Listing 18.1 18LIST01.TXT - uycie instrukcji Dim

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