DEIXAR O TEXTO TUDO EM MAIUSCULO

USUARIO.EXCLUIDOS 08/09/2006 13:54:11
#170213 Resposta escolhida

Text1.Text = UCase(text1.Text)

Boa sorte

USUARIO.EXCLUIDOS 08/09/2006 14:16:32
#170218

Se você quizer apenas converter o texto de uma caixa de texto para maiúsculo, é só fazer como o SINKERTEC te respondeu.

Agora se quizer forçar uma caixa de texto converter todo caractere alfabético digitado para maúsculo, é só inserir o código abaixo: no evento KeyPress da sua caixa de texto:

Private Sub SuaCaixaDeTexto_KeyPress(KeyAscii As Integer)

   KeyAscii = Asc(UCase(Chr(KeyAscii)))
   
End Sub

Ou seja, você estará informando para o VB pegar o código ASCII do caractere com a funçãio Chr(), convertê-lo para o caixa Alta UCase() e convertêlo novamente para ASCII Asc()