كود تحويل حالة الحروف من كبيرة الى صغيرة

ضع الكود في الفورم

Private Sub Command1_Click()

x = Text1.Text

y = UCase(Left(x, Len(x)))

Text1.Text = y

End Sub

Private Sub Command2_Click()

x = Text1.Text

y = LCase(Left(x, Len(x)))

Text1.Text = y

End Sub