帮我看看从哪里输入坐标值，谢谢

Private Sub Command2_Click()
     If Command2.Caption = "开始" Then
         InputX = InputBox("输入坐标值X")
         InputY = InputBox("输入坐标值Y")
         Command2.Caption = "停止"
         Timer2.Enabled = True
     Else
         Command2.Caption = "开始"
         Timer2.Enabled = False
     End If
End Sub