اريد طريقة تحريك الفورم التي لا اطار لها

استخدم الكود

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(Form1.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
  End If
End Sub

Form.rar

وهذا رابط لنفس السؤال

تحريك الفورم من أي مكان

تفضل اخي هذا كود ايضا لعمل ذلك .......................

'نضع الكود التالي في قسم التصاريح العامة للفورمة

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



Private Sub Form1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

MX = X
MY = Y
MF = True

End Sub

Private Sub Form1_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 Form1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MF = False
Me.MousePointer = 1

End Sub

مشكووووووووووووووووور على مشاركتك الفعالة