[Black Rain]

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