[elgokr]

اضافة لما قدمه الاخ Null

حتى تعم الفائدة اكبر 

يمكنك استخدام كود الزر بهذا الشكل

فى البداية اضف هذا الكود

كود :

   Function RText(ByRef Conterol As Control, ByRef GConterol As Control)
       Conterol.Text = GConterol.Text
       With Conterol
           .Text = .Text.Replace("@", TextBox1.Text)
           .Text = .Text.Replace("!", TextBox3.Text)
           .Text = .Text.Replace("#", TextBox4.Text)
           .Text = .Text.Replace("$", TextBox5.Text)
       End With
       Return Conterol
   End Function

ثثم تعال داخل كل زر واستخدم الكود التالى

كود :

       RText(TextBox2, Form4.TextBox1)

فمثلاً الزر الاول

ليصبح

كود :

       RText(TextBox2, Form2.TextBox1)

والزر الثاني

ليصبح

كود :

       RText(TextBox2, Form3.TextBox1)

وهكذا

وبكده تكون وفرت عدد الاسطر وقللت الاستخدام بكل بساطة

ويبقي الشكل بالنهاية مرتب

تحياتى لك

وتمنياتى لك التوفيق