问题九 登陆窗体可以任意拖动

本着为用户着想，我想让机房登陆窗体可以任意拖动，其实不管我们今后做什么项目，都可以用到的。

只需我们在Form_MouseDown 和 Form_MouseMove 俩个事件下简单操作一下下，登陆窗体就可以任意拖动了。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim X0 As Single
Dim Y0 As Single
X0 = X
Y0 = Y
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim X0 As Single
Dim Y0 As Single
If Button = 1 Then
Me.Left = Me.Left + X - X0
Me.Top = Me.Top + Y - Y0
End If
End Sub

【总结】

一心为用户着想。