Fazer Com Que Todas As Textbox Digitem Maiusculo

[Macêdo]

Colocar a propriedade Keypreview do FORM = TRUE

Colocar no evento Keypress do FORM:

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

Pronto! todas as text's escrevem apenas letras maiusculas.