Teclado numÉrico em vb 6.0

Bom dia pessoal,

sou nova em programação e preciso fazer um teclado numérico em VB 6.0, para ser usado em pc touch que fica na fábrica.

criei o teclado com CommandButton de 1 a 0, porém quando clico no botão 1 ele aparece bonitinho na tela, mas quando clico no botão 2 ele cobre o botão 1 e assim por diante…

pensei em criar um vetor , não sei se daria certo.

Eu criei um botão apagar, caso o usuário erre ele apaga um numero por vez.

Private Sub cmbApagar_Click()
txtRL.SetFocus
If txtRL.Text = “” Then
MsgBox “Não há nenhuma informação para apagar!”, vbInformation, "Atenção !"
Else
txtRL.Text = Left(txtRL.Text, Len(txtRL.Text) - 1)
End If

End Sub

Este funciona, criei essa mesma lógica para inserir os números e não deu certo…
Private Sub cmbOne_Click(Index As Integer)
txtRL.Text = 1
txtRL.Text = Right(txtRL.Text, Len(txtRL.Text) +1)
End Sub

POR FAVOR, SEI QUE É UMA COISA BÁSICA, MAS ESTOU COMEÇANDO…

Tente este código nos eventos click dos botões de números:

[code]Private Sub cmbOne_Click(Index As Integer)

txtRL.Text = txtRL.Text & “1”

End Sub

Private Sub cmbDois_Click(Index As Integer)

txtRL.Text = txtRL.Text & “2”

End Sub

Private Sub cmbTres_Click(Index As Integer)

txtRL.Text = txtRL.Text & “3”

End Sub [/code]

Julio,

Muito obrigada… deu certinho!!!

Valeu mesmo!