[undetected71]

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

اخي الكريم بالنسبة للسؤال الاول الطريقة كالتالي

اضغط على Textbox1 مرتين او بالاصح في حدث TextChange

وضع هذا الكود

كود :

Textbox2.Text = Textbox1.Text

الكود يعمل 100%

الطلب الثاني والثالث لا اعلم آنتظر الاعضاء الآخرين

الطلب الرابع : اضغط على TextBox مرتين وضع به هذه الاكواد

كود :

       On Error Resume Next
       Dim upper As String = Nothing
       upper = TextBox1.Text.ElementAt(0).ToString.ToUpper
       TextBox1.Text = TextBox1.Text.Replace(TextBox1.Text.ElementAt(0), upper)
       TextBox1.Select(TextBox1.TextLength, 0)

ولا تنسى تغير اسم TextBox1 اذا كان اسمة غير عندك

بالنسبة للطلب الخامس انتظر باقي الاعضاء

ارجو ان اكون افدتك ولو بالقليل , تحياتي