[RESOLVED] Make everything in textbox lowercase.

[RhinoBull]

You can do that "as you type" and/or on LostFocus evnt:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub
 
Private Sub Text1_LostFocus()
    Text1.Text = LCase(Text1.Text)
End Sub