كيف استطيع تجميع بيانات كل تيسكت فى تيكست تجميعى

الحل في الكود التالي :

Private Sub Command1_Click()
    Dim str As String
    
    str = "Name : " & Trim(Text1.Text) & vbNewLine
    str = str & "father :" & Text2.Text & vbNewLine
    str = str & "G.father :" & Text3.Text
   
    Text4 = str
    
End Sub

غير خاصية MultiLine الخاصة ب Text4 إلى true

المثال مرفق

vb_text.zip

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

الاخ فواز الشمري الكود يعمل تمام والحمد لله والمثال اكثر من رائع اشكرك جزيلا على هذا الكود الجميل الذى ساهم فى اكمال جزء مهم من برنامجى وارجو منك شرح مبسط للكود اذا امكن هذا

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