' Listing 18.9  18LIST09.TXT  --- Wykorzystanie zmiennych statycznych

' Procedura zdarzeniowa przycisku Static
Sub Command1_Click() 
   Static_Var
End Sub  

' Sekcja General/declarations
Sub Static_Var()
  Static Counter As Integer
  Counter = Counter + 1
  Form1.Print "Podprogram wywoano po raz ";Counter
End Sub






