مشکل با فرم

[tehran2009]

وقتی BorderStyle یک فرم رو None کنم فرم ثابت می مونه و با موس نمی تونم حرکتش بدم .
می خوام وقتی BorderStyle یک فرم None کنم بشه با موس جای فرم رو حرکت داد .
یه نگاهی به عکس بندازید ....

[VB.SOS]

از اين روش استفاده كن:


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 Function ReleaseCapture Lib "user32" () As Long

Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

[tehran2009]

با پروژه های vb اگه ممکنه توضیح بدید ممنون میشم ...

[Mbt925]

نمونه رو ببینید: