PROGRAMACAO VISUAL BASIC 6 NIVEL BASICO

PROGRAMADORTW 09/03/2013 00:22:08
#420211

estou tentando fazer uma calculadora. comecei ha pouco tempo. esse eh meu projeto :

Option Explicit

Dim numero1 As Currency
Dim numero2 As Currency
Dim totalx As Currency



Private Sub cmdmult_Click()

numero1 = Val(txtnumero1)
numero2 = Val(txtnumero2)
totalx = numero1 * numero2
lbltotal.Caption = totalx

End Sub

Private Sub cmdsair_Click()
End

End Sub

Private Sub cmdsomar_Click()

numero1 = Val(txtnumero1)
numero2 = Val(txtnumero2)
totalx = numero1 + numero2
lbltotal.Caption = totalx

End Sub

Private Sub cmdtirar_Click()

numero1 = Val(txtnumero1)
numero2 = Val(txtnumero2)
totalx = numero1 - numero2
lbltotal.Caption = totalx

End Sub

Private Sub dmsdividir_Click()

numero1 = Val(txtnumero1)
numero2 = Val(txtnumero2)
totalx = numero1 / numero2
lbltotal.Caption = totalx

End Sub


qdo dou start diz argument not optional e o txtnumero2 é grifado. oq eesta errado? obrigado ^^