VB Code:
CInt
VB Code:
cint
VB Code:
Private Sub cmdCheck_Click() 'MsgBox Answer If IsNumeric(txtAnswer.Text) = False Then MsgBox "NOT GOOD!" Exit Sub End If Answer = CInt(txtAnswer.Text) Dim IM_TRUE As Boolean IM_TRUE = False If Num1 + Num2 = Answer Then IM_TRUE = True End If imgTick.Visible = IM_TRUE imgCross.Visible = Not IM_TRUE cmdCheck.Visible = False cmdAgain.Visible = True End Sub
VB Code:
private sub cmdCheck_Click() 'MsgBox Answer if IsNumeric(txtAnswer.Text) = False Then MsgBox "NOT GOOD!" Exit Sub end If Answer = cint(txtAnswer.Text) dim IM_TRUE As boolean IM_TRUE = False if Num1 + Num2 = Answer then IM_TRUE = True end If imgTick.visible = IM_TRUE imgCross.Visible = not IM_TRUE cmdCheck.Visible = False cmdAgain.Visible = true end Sub
