مربع النص

يا ريت يكون فيه وصف للموضوع تحت عنوانه..لأنك بهذا تحجب أعضاء عن دخوله ظنا منهم أنه لا يزيد عن مجرد سؤال عادي ..وليس به أي أفكار جديدة..

يمكن استخدام شيئا مثل هذا ..

Private Sub Text1_Change()
 Text1.Width = Me.TextWidth(Text1)
End Sub

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

من الممكن ان تعدي اولا عدد الحروف اللي في المربع( عن طريق الدالة Len) ثم تقولي لخاصية العرض بتاعة المربع النصي تساوي عدد الحروف في 100 او 90 مثلا

وطبعا هايكون كل ده مكتوب داخل حدث التغيير في النربع النصي

Private Sub Text1_Change()
Text1.Width = Len(Text1.Text) * 95
End Sub

فقط تحتاج إلي إضافة قيمة ثابتة كـ margin ولتكن 200 علي الكود السابق بوحدة التويب تساوي تقريبا 13 بيكسل..

Private Sub Text1_Change()
 Text1.Width = Me.TextWidth(Text1) + 200
End Sub

أخي محمد .. لا يمكن بأي حال الإعتماد علي عملية ضرب في قيمة ثابتة بالنسبة لعرض الحروف ..

لأن عرض الحروف يختلف ..بين حروف Capital و Small ورموز Symbols..

شكرلكم جميعا وأنا أسفة جدا وشكرا للتنبيه