تحريك الفورم عن طريق صورة في الفورم كيف .؟

تحية طيبة.....

اذا كنت قد فهمت قصدك فجرب هذا الكود

'In Declartion Department
Dim MX As Single,MY As Single,MF As Boolean

Dim MX As Single, MY As Single, MF As Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MX = X
MY = Y
MF = True
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MF = True Then
    Me.Left = Me.Left + (X - MX)
    Me.Top = Me.Top + (Y - MY)
    Me.MousePointer = 5
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MF = False
Me.MousePointer = 1
End Sub

وللعلم هذا الكود يمكنك من تحريك النافذة حتى ان لم يكن لها صندوق تحكم

ان لم يكن هذا مرادك فارجو التوضيح قليلاً :rolleyes:

مشكور أخوي ghost2010 ...

الكود الذي وضعته هو نفس الطريقة التي استخدمتها ولكن أنا طولتها شوي ..

وهو كود ممتاز ويحرك الفورم .. لكنه يحرك الفورم فوارً .. وأنا أريد الكود أن يعمل نفس طريقة تحريك الفورم من المقبض .. يعني بعد رفع الماوس من الصورة يتم تحديد المكان وتحريك الفورم إليه .. طبعاً قبل رفع الماوس يكون هناك ظل للفورم لمعرفة مكان الـ ( DROP ) .

ومشكوووووووور جداً على مرورك الكريم ..

عارف انه موضوع قديم , بس دى مش مشكلة طالما للأفادة.

Option Explicit

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" ()
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'KPD-Team 1999
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim lngReturnValue As Long
If Button = 1 Then
	'Release capture
	Call ReleaseCapture
	'Send a 'left mouse button down on caption'-message to our form
	lngReturnValue = SendMessage(Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub