كيف يمكن عمل ReleaseCapture in vb.net

Private Declare Function ReleaseCapture Lib "user32" () As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As  Integer, ByVal
lParam As  Integer) As  Integer

'used to drag a form around that has no title bar
Private Const WM_NCLBUTTONDOWN = &HA1

'Used with indicate that the drag is In a title bar.
Private Const HTCAPTION = 2

Private Sub frmMain_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
'Don't drag the sceen if it is the right button or the wheel.

If e.Button = MouseButtons.Left Then

ReleaseCapture()

SendMessage(Me.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0)

End If

End Sub

شكرا جزيلا اخونا الكريم SOLO.NET

جزاك الله عنا خير الجزاء

تحياتي