Calculadora do windows VB6

[homem_serio]

Boas mais uma vez, pela pesquisa que fiz pelo google esta deve ser das perguntas mais frequentes e já todos fizemos uma durante a iniciação. Ora bem a maneira que conheço de fazer a calculadora consiste em usar um setfocus na caixa de texto 1 e digitar o numero sem recorrer a botões com "1" "2" por ex. No windows como pude reparar usamos os botões de 1 a 9 + 0 para digitar o primeiro, segundo etc valor limpando em cada acção a txtbox.

Tentei de uma maneira manhosa fazer algo assim mas da maneira que fiz fico-me por apenas um valor. Estou limitado a contas de 1 a 9.

Vejam e riam-se lol

Private Sub jcbutton1_Click() ' aka cmd
If txt1 = "" Then
txt1.Text = txt1 & 1
Else
txt2.Text = Text1 & 1
End If

End Sub

Qual é a maneira de fazer apenas depois de clicar em botões com os sinais? exemplo digito 11111 e quando clico no X ele passa automaticamente a escrever no text2.

Como sempre agradeço qualquer ajuda.

[anolsi]

Alterando o que tu já tens:

Private Sub jcbutton1_Click() ' aka cmd
     txt1.Text = txt1.Text & "1"
End Sub