'Listing 25.1  25LIST01.TXT Prosty przykad wykorzystania procedury

Private Sub Command1_Click()
Form1.Print "Command1_Click()-pierwsza linia"
Sub1
Form1.Print "Command1_Click()-druga linia"
End Sub

Sub Sub1()
Form1.Print "Wewntrz Sub1()"
End Sub

