case sensitive vbcode tags?

[NotLKH]

CInt



cint



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



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