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

السلام عليكم

1- تفعل خاصيه الMulti Line

2- تكتب النص كما يلى

 Text1.Text = "Mohmed Ali" & vbNewLine & "Asm3iel" & vbNewLine & "Ragb"

يعنى تكتب كل جمله بين علمتى تنصيص ولما تريد سطر جديد اكتب VbNewLine

بسم الله الرحمن الرحيم

أعتقد أنك تريد كتابة النص في الكود على عدة أسطر ويمكنك ذلك بوضع Under score ( _ ) في آخر السطر. وبالتالي يكون الكود كالتالي :

Private Sub Command1_Click()
Text1.Text = "هذا الحديث يقول فيه الرسول، عليه الصلاة والسلام:" & vbCrLf & _
		"((إن الإيمان ليأرز إلى المدينة كما تأرز الحية إلى جحرها)). " & vbCrLf & _
		"و((يأرز)) بكسر الراء ويجوز فيها الفتح والضم، ومعنى ((يأرز)) يرجع ويثبت في المدينة كما أن الحية إذا خرجت من جحرها رجعت إليه،" & vbCrLf & _
		"وهذا إشارة من النبي صلى الله عليه وسلم إلى أن هذا الدين سوف يرجع إلى المدينة بعد أن تفسد البلدان الأخرى كما أن الحية تخرج وتنتشر في الأرض ثم بعد ذلك ترجع إلى جحرها."
End Sub

والسلام عليكم ورحمة الله وبركاته

لسلام عليكم و بارك الله فيكم

و الطريقة نجحت مئة بالمئة

كيف لا وأنا أسأل الأكفاء جزاكم الله خيرا

فما سألت سؤالا إلا و الجواب في الحين

أتقدم بالشكرالخالص إلى مشضرفي المنتدى

وإلى كل الأعضاء الأحباء جزاهم الله خيرا

على سعة صدورهم لمن هم مثلي

مليؤون بالأسئلة

وشكرا و السلام عليكم