السلام عليكم هذا الـ SUB قمت ببرمجته البارحة أسلوب استخدامه : اعمل وحدة نمطية جديدة والصق فيها الشفرة ولاستخدامه استخدم الشفرة التالية (على سبيل المثال) FormResize me , 1.2 أضعه هنا لكي يستفيد منه الأخوة ولكي تعطوني ملاحظاتكم عليه Public Sub FormResize(ByRef F As Form, N As Single, Optional RForm As Boolean = True)    On Error Resume Next    Dim C As Control, S1 As String, S2 As String, k As String    Dim R As Integer, I1 As Integer, I2 As Integer, g As Integer    With F