Dim x as string
Private Sub form _load()
X=Text1.Text
End Sup
Private Sub command1_Click
Text1.Text=Ucase(x)
End Sup
Private Sub command2_Click
Text1.Text=Lcase(x)
End Sup
Private Sub command1_Click
Text1.Text=x
End Sup
Dim x as string
Private Sub form _load()
X=Text1.Text
End Sup
Private Sub command1_Click
Text1.Text=Ucase(x)
End Sup
Private Sub command2_Click
Text1.Text=Lcase(x)
End Sup
Private Sub command1_Click
Text1.Text=x
End Sup