利用VB程序怎么使窗体的上的按钮随鼠标移动

Question

利用VB程序怎么使窗体的上的按钮随鼠标移动?

Answer 1

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Move X, Y
End Sub

Answer 2

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    command1.Move X, Y
End Sub

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Move X - Command1.Width / 2, Y - Command1.Height / 2
End Sub
鼠标指针始终处于按钮中心

Answer 4

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    command1.Move X, Y
End Sub