在xzlxzlxzl版主的代码中增添以下代码,即可移动窗体了。
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim oldX As Long, oldY As Long
Dim x1 As Long, y1 As Long
If Button = 1 Then
x1 = X - oldX: y1 = Y - oldY
oldX = X: oldY = Y
Me.Left = Me.Left + x1 - Me.Width / 2
Me.Top = Me.Top + y1 - Me.Height / 2
End If
End Sub