by Anonymous (267 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 29th December 2009
Date Added: Mon 8th February 2021
Rating: (1 Votes)
U CASE AND L CASE
If text1.txt = Then
Msgbox "enter the text"
Else If
str1 = txt1.text
str2 = U Case (str1)
txt.text = str2
End If
End Sub
Private Sub Command2_Click
If text1.txt = Then
Msgbox "enter the text"
Else If
str1 = txt1.text
str2 = L Case (str1)
txt.text = str2
End If
End Sub