Büyük-Küçük Harfe Çevir

Text kutusuna girilen yazıdan seçmiş olduğumuz karakterleri büyük veya küçük harfe çevirebiliyoruz..
Eklenecek nesneler; text1(yazı buraya yazılacak),
command1(büyük harfe çevir), command2(küçük harfe çevir)
Private Sub Command1_Click()
If Len(Text1.SelText) > 0 Then ' If Text1.SelLength > 0 then
Text1.SelText = UCase(Text1.SelText)
Else
Text1.Text = UCase(Text1.Text)
End If
End Sub

Private Sub Command2_Click()
If Len(Text1.SelText) > 0 Then ' If text1.SelLength > 0 then
Text1.SelText = LCase(Text1.SelText)
Else
Text1.Text = LCase(Text1.Text)
End If
End Sub

Private Sub Form_Load()
Text1.ToolTipText = "Lütfen Cümlenizi Buraya Yazınız"
End Sub