'Listing 18.2 18LIST02.TXT -- Bardziej efektywne pamiciowo uycie instrukcji Dim

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