Listing 18.7  18LIST07.TXT  - Podprogramy Sub1() i Sub2() odwoujce si do zmiennej globalnej 

Sub Sub1()
 Var1 = 5
 Var2 = 3
 Var3 = Var1 * Var2
 Form1.Print "Var1 in Sub1 = "; Var1
 Form1.Print "Var2 in Sub1 = "; Var2
 Form1.Print "Var3 in Sub1 = "; Var3
End Sub

Sub Sub2()
 Var3 = Var1 * Var2
 Form1.Print "Var1 in Sub2 = "; Var1
 Form1.Print "Var2 in Sub2 = "; Var2
 Form1.Print "Var3 in Sub2 = "; Var3
End Sub
