Dim AnswerPlus As Boolean
Dim AnswerMinus As Boolean
Dim AnswerMultiply As Boolean
Dim AnswerDivide As Boolean
Dim first, second As Double
Dim dot As Integer
Dim when2clear As Boolean

Function clearDisplay()
Dim i As Integer

For i = cmd0 To cmd9
If when2clear = True Then
txtDis = ""
End If
Next i

when2clear = False
End Function

Function Identifyer()

AnswerPlus = False
AnswerMinus = False
AnswerMultiply = False
AnswerDivide = False

End Function

Private Sub cmd0_Click()
clearDisplay
txtDis = txtDis & "0"

End Sub

Private Sub cmd1_Click()
clearDisplay
txtDis = txtDis & "1"

End Sub

Private Sub cmd2_Click()
clearDisplay
txtDis = txtDis & "2"
End Sub

Private Sub cmdC_Click()
txtDis = ""
first = 0
second = 0
End Sub

Private Sub cmdDot_Click()
If dot = 0 Then
txtDis = txtDis & "."

Else
Exit Sub

End If
dot = 1

End Sub

Private Sub cmdEquals_Click()
when2clear = True

If AnswerPlus = True Then
second = txtDis
Addval

ElseIf AnswerMinus = True Then
second = txtDis
MinusVal

End If

Identifyer

first = 0
second = 0

End Sub

Private Sub cmdMinus_Click()
first = txtDis
when2clear = True
AnswerMinus = True

End Sub

Private Sub cmdPlus_Click()
first = txtDis
when2clear = True
AnswerPlus = True

End Sub

Private Sub Form_Load()
Identifyer
End Sub

Function Addval()
txtDis = Val(first + second)
End Function

Function MinusVal()
txtDis = Val(first - second)
End Function

--
nothing... !@#$%^&*!!!

thanks dude...yours is rather good aswell!! xD

--
"my time is running out..."

Thanks for the fave dude!

--
There will only be one of you for all of time. Fearlessly be yourself. You owe it to the world.

hello there your probably getting sick of hearing this but
Hi there and welcome

--
without pants

Hey! As everyone else has said- "welcome to DA!"
And also, as everyone else has said- "I'm a friend of your sister!"
Hahaha! Am I right?
Welcome once again buddy!

--
There will only be one of you for all of time. Fearlessly be yourself. You owe it to the world.