Private Sub cmdStart_Click()
    Const strSentinel As String = "!"
 
    Dim intSecretWordLength As Integer
    Dim intNumberOfGuesses As Integer
    Dim intLetterPos As Integer
    Dim intInCorrectNumberOfGuesses As Integer
 
    Dim intWordPickNumber
 
    Dim strSecretWord As String
    Dim strGuess As String
    Dim strWordGuessedSoFar As String
 
    intWordPickNumber = RndInt(1, 12)
 
     strSecretWord = "Boat"
 
    intSecretWordLength = Len(strSecretWord)
 
    strWordGuessedSoFar = String(intSecretWordLength, "-")
    lblWord.Caption = strWordGuessedSoFar
 
    intNumberOfGuesses = 0
    intInCorrectNumberOfGuesses = 0
 
    Call ResetPic
 
    strGuess = InputBox("Guess a letter (! to guess word)", "Hangman")
    Do While strGuess <> strSentinel
        intNumberOfGuesses = intNumberOfGuesses + 1
 
        If lblWord.Caption = strSecretWord Then
            MsgBox "You win"
            Exit Sub
        End If
 
    For intLetterPos = 1 To intSecretWordLength
        If StrComp(strGuess, Mid(strSecretWord, intLetterPos, 1), vbTextCompare) = 0 Then
                Mid(strWordGuessedSoFar, intLetterPos, 1) = strGuess
        Else
         ***   Call CheckPic(strSecretWord) 'Guessed it wrong ****
 
        End If
 
        If lnRightLeg.Visible = True Then
            Exit Sub
        End If
 
    Next intLetterPos
            lblWord.Caption = strWordGuessedSoFar
            strGuess = InputBox("Guess a letter (! to guess word)", "Hangman")
    Loop
 
    If strGuess = strSentinel Then
        strGuess = InputBox("Guess the whole word")
    End If
 
    If StrComp(strGuess, strSecretWord, vbTextCompare) = 0 Then
        MsgBox "You win."
    Else
        MsgBox "You lost press ok to see what the word was."
        lblWord.Caption = strSecretWord
    End If
End Sub
Sub ResetPic()
    shpHead.Visible = False
    shpRightHand.Visible = False
    shpLeftHand.Visible = False
    lnBody.Visible = False
    lnLeftArm.Visible = False
    lnRightArm.Visible = False
    lnRightLeg.Visible = False
    lnLeftLeg.Visible = False
End Sub
 
Sub CheckPic(ByVal strSecretWord As String)
 
    If shpHead.Visible = False Then
        shpHead.Visible = True
    ElseIf shpHead.Visible = True And lnBody.Visible = False Then
        lnBody.Visible = True
    ElseIf lnBody.Visible = True And lnRightArm.Visible = False Then
        lnRightArm.Visible = True
    ElseIf lnRightArm.Visible = True And lnLeftArm.Visible = False Then
        lnLeftArm.Visible = True
    ElseIf lnLeftArm.Visible = True And shpRightHand.Visible = False Then
        shpRightHand.Visible = True
    ElseIf shpRightHand.Visible = True And shpLeftHand.Visible = False Then
        shpLeftHand.Visible = True
    ElseIf shpLeftHand.Visible = True And lnLeftLeg.Visible = False Then
        lnLeftLeg.Visible = True
    ElseIf lnLeftLeg.Visible = True And lnRightLeg.Visible = False Then
         lnRightLeg.Visible = True
         MsgBox "You lost"
         lblWord.Caption = strSecretWord
    End If
End Sub
'*********************************************************************************************************
'Makes a random number
'Pre: Boundries with the lowest and highest number
'Post: one number that is generated from the boundries
'************************************************************************************************************
Function RndInt(ByVal intLow As Integer, ByVal intHi As Integer) As Double
 
    RndInt = Int((intHi - intLow + 1) * Rnd + intLow)
 
End Function