كتابة أرقام مع كلمات فى الtext

تفضل

الكود كاملاً:

Dim A, B, TOT As Single
Dim MMSG(9) As String
Dim NAMM As String
Private Sub Command1_Click()


 A = Text1.Text
 B = Text2.Text
 TOT = A * B
 NAMM = Text3.Text
 MMSG(1) = "ÃäÇ " & NAMM & " ÇÔÊÑíÊ " & " ãä ãÍá ÇáåÏì ÈÇáÌíÒÉ "
 MMSG(2) = " ÈÖÇÚÉ ÈÓÚÑ ÇÌãÇáì  " & Text1.Text & (" × " + Text2.Text) & " = " & TOT
 MMSG(3) = " Ìäíå ãÕÑì ÝÞØ"
Text4.Text = (MMSG(1)) + (MMSG(2)) + (MMSG(3))
End Sub

الكتابة.rar

جزاك الله خيرآ

ولك ألف شكر

لى سؤال تابع لهذا الموضوع

هل من كود أو أى طريقة تتحكم لى فى عرض الtext

بحيث تكون جميع الأرقام مكتوبة فى سطر واحد لأن كمية الكلام المكتوبة عرضها غير ثابت(يتغير حسب اسم المشترى مثلآ على حسن سعد أ، عبد الحميد ابراهيم عبد الرحمن ) (وقد يتغير أكثر من ذلك بكثير لو كتبنا مع الاسم العنوان أيضآ)

فالمطلوب أنه مهما تغير الاسم أو العنوان المكتوب لاأجد مثلآ 34×1000 فى نهاية السطر الأول ثم =34000 فى بداية السطر الثانى

الكتابة.rar

اعتقد ان هذا ما تريد

Private Sub Text1_Change()
If Len(Text1.Text) * 110 > Text1.Width Then Text1.Width = Len(Text1.Text) * 110 + 10
End Sub

وماذا تعنى بالرقم 110

أم أن رقم ثابت لآى مثال آخر؟