بزرگ نوشتن حروف اول در تکس باکس

[MohammadGh2011]

سلام دوستان عزیز لطفا راهنماییم کنید
من یه تاپیک دیگه ای نوشته بودم ولی به علت نامناسب بودن عنوان حذف شده است.
من میخواهم وقتی در تکس باکس کلمات انگلیسی مینویسیم کلمه اول با کلمه بزرگ نوشته شود و بقیه کلمه ها کوچک نوشته شوند
من در تاپیک قبلی که حذف شده است دوستی برایم کدی نوشتن که تمام کلمه ها به صورت کلمه انگلیسی بزرگ نوشته میشود
اینم کدی که آن دوست عزیز برایم ارسال کردن


Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub


و حالا من میخواهم که فقط کلمه ی اول به صورت بزرگ نوشته شود و کلمه های دیگر کوچک
برای مثال در تکس باکس کاربر میخواهد Iran را تایپ کند کلمه اول با بزرگ و کلمه ی دوم به طور خودکار با کلمه کوچک نوشته شود.
ممنون از همه ی دوستان

[aria1o]

Private Sub Command1_Click()
MsgBox StrConv("hello mr mohammad", 3)
End Sub

[_behnam_]

Private Sub Text1_Change()
Text1.Text = StrConv(Text1.Text, 3)
Text1.SelStart = Len(Text1.Text)
End Sub

[MohammadGh2011]

Private Sub Text1_Change()
Text1.Text = StrConv(Text1.Text, 3)
Text1.SelStart = Len(Text1.Text)
End Sub


دوست عزیز ازت ممنونم به خاطر این دستور کارم رو راه انداخت:تشویق: