كيف اريد ان اجعل هذا الزر على يمين النافذة

السلام عليكم...

اكتب السطرين التاليين في الحدث Resize التابع للـ Form (النافذة):

Private Sub Form_Resize()
    On Error Resume Next

    Command1.Move ScaleWidth - Command1.Width - 120, ScaleHeight - Command1.Height - 120
End Sub

ضع بدل الـ 120 الأولى المسافة التي تريد تركها بين الزر و الحد الأيمن للنافذة، و بدل الـ 120 الثانية المسافة التي تريد تركها بين الزر و الحد الأسفل للنافذة (الوحدات هنا بالـ Twips).

نرجو الاستفادة و السلام.

شكرا اخي najy_zl بارك الله فيك

زبط الكود

تحياتي