我觉得楼上的回答不完全。
MouseDown、MouseUp的事件只是实现鼠标点击事件。不过可能问的人没说清楚。
还有,补充点,上述两个事件中,button参数为0-2,本别代表左键、右键、中间键(滚轮)
另外,可以用click()、key_down()、key_up() 事件实现。可能更贴近问者的原意。
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "电机转动"
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print "电机停止"
End Sub
我觉得你应该是要一个动画的作用,使用鼠标按键的函数,然后在过程里面加载一系列的图片,实现动画的作用,应该会用到timer控件