تحريك النموذج دون إطار

سلام

أهلا فهمي،،

- جرب هذه الشفرة يمكن تناسبك

[

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' فحص ما إذا كان زر الفارة الأيسر مضغوطا
If Button = acLeftButton Then
	 'إسناد قيمة موقع الفارة مقسوما على 2إلي موقع النموذج
	Me.Form.Move (X/2),(Y/2)
End If
End Sub

**!** عفوا قمت بتعديل الشفرة . حركة النموذج الآن أكثر ثباتا

أتمنى لك الفائدة

القحم

جزاكم الله خيرا أخي الكريم

وكل عام وأنت بألف خير

شكراً