紧急求助！VBA中MOVE问题

Question

Private Sub Image2_Click(t As Integer)
Image2.move t
End SubPrivate Sub TextBox1_Change()
If TextBox1.Text = 1 Then
Image2_Click 125
End If
End Sub如果文本框值为1 一个图片就往右移动，我想用过程参数，但MOVE后面为什么不能带参数呢？？？？
请各位高手指点！！

Answer 1

Private Sub Image2_Click() 
  t=GetTvalue()
  Image2.move t 
End Sub 

Answer 2

高手
    哪Image2_Click 125  这块应该怎么赋值啊？？ 现在报错 报错内容是
      错误的参数号或无效的属性赋值请高手指点