提一个关于VB基础编程的问题

添加Timer1和Command1，
Timer1的Enabled设为False，Interval设为100

添加代码：

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Timer1.Enabled = True
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Image1.Top = Image1.Top + 100
End Sub

即可

你是说按住就让可以使图片移动而不是单击吗？
Private Sub Command1_MouseDown()
Image1.Top = Image1.Top + 100
End Sub
改成这样就行了，就是放到MouseDown事件里，不要放在Click事件里
额……看错问题了……是要一直啊……那我的这个不行，只能移动一次，选luoji1195的把