'Listing 25.3 -- 25LIST03.TXT  -- Przekazanie parametru do procedury - wersja 1.

Private Sub Command1_Click()
  Dim Number As Integer
  Number = 5
  Get_Number number
  Form1.Print "number = " & number
End Sub

Sub Get_Number(ByVal X As Integer)
  X = X * 5
  Form1.Print "parametr wewntrz procedury = " & X
End Sub
