VB6 - Fazendo com que todas as Textbox's escrevam em maiusculo

Coloque a propriedade Keypreview do FORM = TRUE

Agora ponha no evento KeyPress do Form:

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

Pronto! todas as text's do FORM estarão escrevendo em maiusculo, não precisa colocar o código no evento Keypress de cada textbox, economiza tempo e código.