要让这个按钮移动其实有很多种方式,比如随机移位、在两个(或多个)指定位置之间来回移动等,这里我给一个“让两个按钮交换位置”的代码: Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim t As Integer t = Command1.Left Command1.Left = Command2.Left Command2.Left = t End Sub