VB Code:
  1. CInt

VB Code:
  1. cint

VB Code:
  1. Private Sub cmdCheck_Click()
  2. 'MsgBox Answer
  3. If IsNumeric(txtAnswer.Text) = False Then
  4.     MsgBox "NOT GOOD!"
  5.     Exit Sub
  6. End If
  7. Answer = CInt(txtAnswer.Text)
  8. Dim IM_TRUE As Boolean
  9. IM_TRUE = False
  10.  
  11. If Num1 + Num2 = Answer Then
  12.     IM_TRUE = True
  13. End If
  14. imgTick.Visible = IM_TRUE
  15. imgCross.Visible = Not IM_TRUE
  16. cmdCheck.Visible = False
  17. cmdAgain.Visible = True
  18. End Sub

VB Code:
  1. private sub cmdCheck_Click()
  2. 'MsgBox Answer
  3. if IsNumeric(txtAnswer.Text) = False Then
  4.     MsgBox "NOT GOOD!"
  5.     Exit Sub
  6. end If
  7. Answer = cint(txtAnswer.Text)
  8. dim IM_TRUE As boolean
  9. IM_TRUE = False
  10.  
  11. if Num1 + Num2 = Answer then
  12.     IM_TRUE = True
  13. end If
  14. imgTick.visible = IM_TRUE
  15. imgCross.Visible = not IM_TRUE
  16. cmdCheck.Visible = False
  17. cmdAgain.Visible = true
  18. end Sub