Dim lx, ly As Int32 '记录鼠标按下时的位置
Private Sub Panel1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
lx = e.X
ly = e.Y
End Sub
Private Sub Panel1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
If e.Button = MouseButtons.Left Then
Panel1.Left += e.X - lx
Panel1.Top += e.Y - ly
End If
End Sub
