VB.net drag a form without Borders

******************************************
Private ooriginalregion as Region = Nothing
' For form movement
Private bformdragging as Boolean = False
Private opointclicked as Point

'******************************************

Private Sub Form1_mousedown (ByVal sender as Object, ByVal e as System.Windows.Forms.MouseEventArgs) Handles mybase.moused Own

me.bformdragging = True
me.opointclicked = New Point (e.x, e.y)

End Sub
'******************************************

Private Sub Form1_mouseup (ByVal sender as Object, ByVal e as System.Windows.Forms.MouseEventArgs) Handles Mybase.mouseup
me.bformdragging = False

End Sub
'******************************************

Private Sub Form1_mousemove (ByVal sender as Object, ByVal e as System.Windows.Forms.MouseEventArgs) Handles Mybase.mousem Ove
If me.bformdragging Then
Dim Omovetopoint as Point
' Locate the target location based on the current mouse position
Omovetopoint = Me.pointtoscreen (New point (e.x, e.y))
' Make adjustments from the start position
Omovetopoint.offset (Me.opointclicked.x *-1, _
(Me.opointclicked.y + _
Systeminformation.captionheight + _
SystemInformation.BorderSize.Height) *-1)
' Move the form
Me.location = Omovetopoint
End If

End Sub