Deixar A Letra Que Foi Digitada Em Maisculo

[mestre fyoda]

me ajudem me esqueci de como se faz , minha memoria ta ficando pequena .

[mariozneto]

Veja se é isto que precisa:

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

Falow... T+

[mestre fyoda]

me lembrei mano como se faz , so não lembrava do comando .

assim é mais facil gente .

Private Sub nome_LostFocus()

nome.Text = UCase(nome.Text)

End Sub

[mariozneto]

me lembrei mano como se faz , so não lembrava do comando .

assim é mais facil gente .

Private Sub nome_LostFocus()

nome.Text = UCase(nome.Text)

End Sub

Amigo Ucase() converte para maiúscula quando a caixa de texto perde o foco, já o meu exemplo converte ao teclar algo! Cada código tem uma funvionalidade!!

Abraço!!

Falow... T+