首先将form的boderstyle属性设为0

Dim movesScreen As Boolean

Dim mousX As Integer
Dim mousY As Integer
Dim currX As Integer
Dim currY As Integer


Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)

If Button = 1 Then

movesScreen = True
mousX = X
mousY = Y
End If

End Sub

Private Sub Form_MouseMove(Button As Integer,Y As Single)

If movesScreen Then

currX = Form1.Left - mousX + X
currY = Form1.Top - mousY + Y
Form1.Move currX,currY
End If

End Sub


Private Sub Form_MouseUp(Button As Integer,Y As Single)

movesScreen = False

End Sub 原文链接：https://www.f2er.com/vb/257696.html