move borderless form

[Cc]

hi ,
i try this code to move form but the form flick when ever I move the move.

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

If e.Button = MouseButtons.Left Then

Me.Location = New Point(e.X, e.Y)

End If

End Sub

 

[Chris Dunaway]

http://www.google.de/groups?selm=#[email protected].
gbl

No need to resort to the API, just override WndProc in the form:

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Const WmNcHitTest As Integer = &H84
Const HtClient As Integer = 1
Const HtCaption As Integer = 2

If m.Msg = WmNcHitTest Then
m.Result = New IntPtr(HtCaption)
Else
MyBase.WndProc(m)
End If
End Sub