Campo Em Vb

[Guest Daniel S.]

Tenho um campo identidade no meu sistema em Visual Basic.

Sendo a identidade formada de texto e número: "000.000.000-0", como faço para que nesta mesma caixa ele somente permita dois pontos?

OBS: Já tenho o código para a permissão do ponto, mas quero que essa caixa tenha um limite de somente dois pontos, assim como já tenho o limite de apenas um traço neste mesmo campo.

Meu código:

Private Sub TXTIdent1_KeyPress(KeyAscii As Integer)

On Error Resume Next

'Declare número do KeyAscii

IdentUm = Chr(KeyAscii)

'Utilize o backspace ao apagar com Keyascii = 8

If Not (IsNumeric(IdentUm) Or IdentUm = "-" Or IdentUm = "." Or KeyAscii = 8) Then

KeyAscii = 0

End If

'Permite somente um traço

If (IdentUm = "-") Then

Dim UM(0)

UM(0) = TXTIdent1

arr = Filter(UM, IdentUm)

If UBound(arr) >= 0 Then

KeyAscii = 0

End If

End If

End Sub

[Eddie_666]

Vai em Project -> Components e adiciona o Microsoft Masked Edit Control 6.0

Ele é um text box que te permite colocar uma máscara de entrada... Depois é só configurá-la como quiser na propriedade Mask, dá uma olhada no help que irá te ajudar... Qualquer dúvida, posta