Modul Kodu
 Kod:
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Declare Function ReleaseCapture Lib "user32" () As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long Public Const WM_NCLBUTTONDOWN = &HA1 Public URLClient As String Public Declare Function ShellExecute Lib _ "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Form mouse down olayına ekle
 Kod:
If Button = 1 Then Dim ReturnVal As Long X = ReleaseCapture() ReturnVal = SendMessage(hWnd, WM_NCLBUTTONDOWN, 2, 0)
End If
__________________