حرکت فرم

[loads]

سلام دوستان

با چه کدی میتونم فرمی رو که Border Style اون none شده روی desktop با موس حرکت بدم ؟

[H_SH_VB]

2 ta raah dari
yeki inke az tabeye api estefade koni
yeki dige ham inke code drag benvisi ke man hoselasho nadaram;)
api ine:


Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngReturnValue As Long
If Button = 1 Then
Call ReleaseCapture
lngReturnValue = SendMessage(Cme.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub