(Resolvido) Definir local do fóco {setfocus}

[Matheus-vb6]

Pessoal, tentei usar o format para inserir um "-" depois de 4 digitos mas não consegui... então fiz dessa forma:

Private Sub txtFone_Change()
If Len(txtFone) = 4 Then
txtFone.Text = txtFone.Text & "-"
End If
End Sub

Porem ele defini o fóco para antes, exemplo, se eu digito 5555

aparece o 5555- mas o fóco vai para o inicio, ou seja se eu digitar 4444 agora em vez de 5555-4444 sai 44445555-

como resolvo isso?

Abraços

Editado Agosto 23, 2010 por Matheus-vb6

[gerarda]

Private Sub txtFone_Change()
If Len(txtFone) = 4 Then
txtFone.Text = txtFone.Text & "-"
txtFone.SelStart = 5
End If
End Sub

[Matheus-vb6]

obrigado Gerarda, as vezes coisas simples fazem uma grande diferença kk

Duvida resolvida

--100 post '.'--