'Listing 18.6 18LIST06.TXT -- Podprogramy Sub1() i Sub2()


Sub Sub1 ()
 Dim Var1 As Integer
 Dim Var2 As Integer
 Var1 = 5
 Var2 = 3
 Form1.Print "Var1 in Sub1 = "; Var1
 Form1.Print "Var2 in Sub1 = "; Var2
End Sub

Sub Sub2 ()
 Dim Var1 As Integer
 Dim Var2 As Integer
 Form1.Print "Var1 in Sub2 = "; Var1
 Form1.Print "Var2 in Sub2 = "; Var2
End Sub
