大侠们，快来救我一把（如何在一个过程中调用另一个过程中的参数）

Question

如何在一个过程中调用另一个过程中的参数
比如：
Private Sub Command1_Click()
dim p as integer 'p局部变量
p=......
End SubPrivate Sub Timer3_Timer()
Dim x As Integer
x = Val(Text2.Text) / 10
If  Shape4.Left < 7025 Then
    Shape4.Left = Shape4.Left + x*p 'p是另一个过程中的参数
    Shape4.Top = Shape4.Top - x*p
Else
    Shape4.Left = Shape4.Left + x
End If
End Sub

Answer 1

想在Timer3_Timer()  中调用Command1_Click()  中的p

Answer 2

在模块中定义一个public的P，然后由一个去修改一个去调用不可以吗？