'Listing 25.4 -- 25LIST04.TXT  -- Przekazanie parametru do procedury - wersja 2.

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

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