' note: only can hold up to 15-17 numbers
Private num1, num2, Result, Index, opt, optn As Double
Dim dude As Boolean

Private Sub C_Click()
num1 = 0
num2 = 0
Value.Text = ""
End Sub

Private Sub CE_Click()
num2 = 0
Value.Text = ""
End Sub

Private Sub Deci_Click()
Value.Text = Val(Value.Text) & "."
End Sub

Private Sub Equals_Click()
    dude = 1
    num2 = Val(Value.Text)
    If opt = 0 Then
        Result = num1 + num2
    ElseIf opt = 1 Then
        Result = num1 - num2
    ElseIf opt = 2 Then
        Result = num1 * num2
    ElseIf opt = 3 Then
        If num2 = 0 Then
        Value.Text = ""
        MsgBox "Answer is undefined", 0, "Error"
        Else
        Result = num1 / num2
        End If
    End If
    Value.Text = Result
    num1 = 0
    num2 = 0
End Sub

Private Sub negpos_Click()
Result = 0 - Value.Text
Value.Text = Result
End Sub

Private Sub Number_Click(Index As Integer)
    If dude = True Then
        Value.Text = ""
        If Value.Text = "" Then
            dude = False
        End If
    End If
    Value.Text = Val(Value.Text & Number(Index).Index)
End Sub

Private Sub Operator_Click(Index As Integer)
    opt = Operator(Index).Index
    num1 = Val(Value.Text)
    Value.Text = ""
End Sub

Private Sub Percent_Click()
    Result = Value.Text / 100
    Value.Text = Result
End Sub

Dim num1 As Double
Dim num2 As Double
Dim result As Double
Dim opt As Integer
Dim dic As Boolean

Private Sub cmdNUM_Click(Index As Integer)
    If dic = True Then
        txtnum = ""
        If txtnum = "" Then
            dic = False
        End If
    End If
    txtnum = txtnum & cmdnum(Index).Index
End Sub

Private Sub cmdEQUALS_Click()
    dic = True
    num2 = Val(txtnum)
    Select Case opt
        Case Is = 0
            result = num1 + num2
        Case Is = 1
            result = num1 - num2
        Case Is = 2
            result = num1 * num2
        Case Is = 3
            If num2 = 0 Then
                MsgBox "Answer is Undefined", 0, "Error"
            Else
                result = num1 / num2
            End If
    End Select
    txtnum = result
End Sub

Private Sub cmdDECI_Click()
    txtnum = txtnum + "."
End Sub

Private Sub cmdOPRTR_Click(Index As Integer)
    opt = cmdoprtr(Index).Index
    num1 = Val(txtnum)
    txtnum = ""
End Sub

Private Sub cmdSIGN_Click()
    txtnum = 0 - txtnum
End Sub

Private Sub cmdEXIT_Click()
    End
End Sub

End Sub