TextBox e listbox

[daniloprata 0]

Bom dia!Gostaria de saber como que eu faço para assim q digitar um determinado numero de caracteres num textbox, esses caracteres serem incluidos no listbox, sem a necessedidade de ter nenhum botão para s]fazer essa gravação no listboxObrigadoDanilo

[eriva_br 7]

seria +ou- isso

 

Private Sub Form_Load()	Text1.MaxLength = 5 'define o numero maximo de caracteres para o textboxEnd SubPrivate Sub Text1_Change()	If Len(Text1.Text) = 5 Then 'se o numero de caracteres digitados for igual a 5 entaum entra na condição if 		Me.List1.AddItem Text1.Text 'insere no listbox 		Text1.Text = "" 'limpa o textbox pra proxima digitação	End IfEnd Sub

t+