'Listing 18.8  18LIST08.TXT  -- Program VarScpe3

' Sekcja General/declarations:
Dim Counter As Integer
' Procedura zdarzenia Click przycisku Module
Sub Command1_Click ()
 Form1.Print "Zmienna moduowa = "; Counter
End Sub

' Procedura zdarzenia Click przycisku Local
Sub Command2_Click ()
  Shadow
End Sub

' Procedura zdarzenia Load formularza Form
Sub Form_Load ()
  Counter = 10
End Sub

' Sekcja General/Shadow:
Sub Shadow ()
  Dim Counter As Integer
  Form1.Print "Zmienna lokalna = "; Counter
End Sub
