Private Sub Command1_Click()
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 Text1.SelLength <> 0 Then
Text1.SelText = LCase(Text1.SelText)
Else
Text1.Text = LCase(Text1.Text)
End If
End Sub
bu program için öncelikle formunuza iki adet command buton ve bir adet text box eklemelisiniz
sezedevi_90@hotmail.com