Why doesn't this statement work?

[cwlvc]

ok, so i had this other thread, but after 35 views, there was NO reply, so i had to figure out myself, even though it took a long time. but now that i've figured out, there's a small problem. for a hangman game, when there's 2 mistakes, the head comes on, after 3 mistakes, the left arm comes on, but i want it after one mistake, the head comes on, after 2 mistakes, the left arm comes on. this is my coding.

Option Explicit
Private Const strWord As String = "water"
Private Const strWordTwo As String = "cross"
Private Const StrWordThree As String = "spark"
Private Const strWordFourth As String = "minus"
Private intNumber As Integer
Private strText As String
Private intWrong As Integer

Private Sub Form_Load()
Randomize
intNumber = Int(4 * Rnd + 1)

intWrong = 0

End Sub


Private Sub cmdA_Click()
If intWrong = 1 Then
shpHead.Visible = True
ElseIf intWrong = 2 Then
lneBody.Visible = True
ElseIf intWrong = 3 Then
lnelefthand.Visible = True
ElseIf intWrong = 4 Then
lnerighthand.Visible = True
ElseIf intWrong = 5 Then
lneleftleg.Visible = True
ElseIf intWrong = 6 Then
lnerightleg.Visible = True
End If

If intNumber = 1 Then
lbl2.Caption = "a"
ElseIf intNumber = 2 Then
lblmessage.Caption = "guess Again"
ElseIf intNumber = 3 Then
lbl3.Caption = "a"
ElseIf intNumber = 4 Then
lblmessage.Caption = "guess again"
End If
cmdA.Visible = False

If intNumber = 2 Or intNumber = 4 Then
intWrong = intWrong + 1
lblCount = intWrong

End If
End Sub
Private Sub cmdB_Click()

If intWrong = 1 Then
shpHead.Visible = True
ElseIf intWrong = 2 Then
lneBody.Visible = True
ElseIf intWrong = 3 Then
lnelefthand.Visible = True
ElseIf intWrong = 4 Then
lnerighthand.Visible = True
ElseIf intWrong = 5 Then
lneleftleg.Visible = True
ElseIf intWrong = 6 Then
lnerightleg.Visible = True
End If

If intNumber = 1 Then
lblmessage.Caption = "guess again"

ElseIf intNumber = 2 Then
lblmessage.Caption = "guess again"

ElseIf intNumber = 3 Then
lblmessage.Caption = "guess again"

ElseIf intNumber = 4 Then
lblmessage.Caption = "guess again"

End If
cmdB.Visible = False

If intNumber = 1 Or intNumber = 2 Or intNumber = 3 Or intNumber = 4 Then
intWrong = intWrong + 1
lblCount = intWrong
End If
End Sub



i only gave you "A" and "B", but the rest of the code are the same...

[lordroba]

this sounds a bit counter intuitive, but try changing

intWrong = 0

to

intWrong = 1

you're only off by one mistake, so this might be the easiest way to fix the problem.

[cwlvc]

yea, but after i change it to 1, then the head appears before i even make an mistake.