Upper Case To Lower Case

'controls       Property        Setting

'Label1          Name            lbl
'                Caption          Enter Text

'Textbox1        Name            Text1
'                Caption           -

'Label2          Name            lblUpper
'                Caption          -

'Label3          Name            lblLower
'                Caption          -

'Label4          Name            lblReverse
'                Caption          -

'command1        Name            cmdUpper
'                Caption           Upper

'command2        Name            cmdLower
'                Caption           Lower

'command3        Name            cmdReverse
'                Caption           Reverse


'-----------------------------------------------------
'                        CODE

Private Sub cmdUpper_click()

text=Ucase(Text1.text)
lblUpper.Caption=text
End Sub

Private Sub cmdLower_click()

text=LUcase(Text1.text)
lblLower.Caption=text
End Sub

Private Sub cmdReverse_click()

text=StrReverse(Text1.text)
lblReverse.Caption=text
End Sub