با سلام به تمامی عزیزان

جواب سوال یکی از دوستان

 چگونه فرم بدون caption  را drag کنیم

این هم کدش

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)

Call ReleaseCapture

lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)

End Sub

بچه ها یک سایت به ما بدین که بتونم در آن برنامه ها م را آپلود کنم (تو  قسمت نظرات )

من نمیتونم دیگه اینچا آپلود کنم

www.sharemation.com

اینجا را فیلتر کردن

اگر سوالی داشتین من در خدمتم

فعلا بای