VB控件随鼠标移动而移动

Question

就是要进入Form1后，Command1可随鼠标移动而移动
玩过大鱼吃小鱼吗？？
就是那种效果！！！

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Enabled = 0
Command1.Left = X - Command1.Width / 2
Command1.Top = Y - Command1.Height / 2
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
With Command1
.Left = X
.Top = Y
End With
End Sub

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Left = X
Command1.Top = Y
End Sub

Answer 4

on Mouse movie？ 好像是这个～！