Dim isClick As Boolean = False
Dim pTemp As Point
Private Sub FrmLogin1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseDown, lblTitle.MouseDown
pTemp = New Point(e.X, e.Y)
isClick = True
End Sub
Private Sub FrmLogin1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseMove, lblTitle.MouseMove
If isClick Then
Me.Location = Me.Location + New Size(e.X - pTemp.X, e.Y - pTemp.Y)
pTemp = New Point(e.X, e.Y) - New Size(e.X - pTemp.X, e.Y - pTemp.Y)
End If
End Sub
Private Sub FrmLogin1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseUp, lblTitle.MouseUp
isClick = False
End Sub
Dim pTemp As Point
Private Sub FrmLogin1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseDown, lblTitle.MouseDown
pTemp = New Point(e.X, e.Y)
isClick = True
End Sub
Private Sub FrmLogin1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseMove, lblTitle.MouseMove
If isClick Then
Me.Location = Me.Location + New Size(e.X - pTemp.X, e.Y - pTemp.Y)
pTemp = New Point(e.X, e.Y) - New Size(e.X - pTemp.X, e.Y - pTemp.Y)
End If
End Sub
Private Sub FrmLogin1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlImage.MouseUp, lblTitle.MouseUp
isClick = False
End Sub