ماهو الكود لاضافة سطر جديد لمربع نص

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

Text1.Text=Text1.Text + vbNewLine

Text1.Text=Text1.Text + vbCrlf

Text1.SetFocus
Text1.SelStart = Len(Text1.Text)
SendKeys "~"

Text1.Text=Text1.Text + Chr(10)

أشكرك اخي GHOST2010

ولكن الكود الاول فهمته لاضافة سطر جديد

ولكن الاكواد الاخرى ماذا افعل بها

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

اخى العزيز

الاكواد كلها تؤدى نفس الغرض اى ان كل كود من هذه الاكواد يضيف سطر جديد الى مربع النص :rolleyes:

سأوضّح المسألة أكثر

لدي مربع نص في الفورم 1

ولدي مربع نص في الفورم 2

اريد ان اضع زر في الفورم 2 ينقل لي النص الموجود في مربع النص

الموجود في الفورم 2 الى مربع النص الموجود في الفورم 1

ولكن اريد كلما اضفت نص جديد من الفورم 2 اريد أن يضيف النص

الجديد في سطر جديد وهكذا

Private Sub Command1_Click()
Form1.Text1.Text = Form1.Text1.Text & vbNewLine & Text1.Text
ُEnd Sub

Private Sub Command1_Click()
Form1.Text1.Text = Form1.Text1.Text & vbCrlf & Text1.Text
ُEnd Sub

Private Sub Command1_Click()
Form1.Text1.Text = Form1.Text1.Text & Chr(10) & Text1.Text
ُEnd Sub

اى كود يفى بالغرض :rolleyes:

اشكرك اخي GHOST2010 على المجهود الذي تقوم به

جزاك الله خيرا وجعلها في ميزان حسناتك