Make Uppercase or lowercase in Textbox

Description

how to Make Uppercase or lowercase in Textbox

More Info

Submitted On
By	សុខា
Level	Beginner
User Rating	5.0 (15 globes from 3 users)
Compatibility	VB 6.0
Category	String Manipulation
World	Visual Basic
Archive File

Source Code

'This to change it to Uppercase while typing
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
'This to change it to Lower case while typing
Private Sub Text1_KeyPress(KeyAscii As Integer)
  KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub