Private intpart As Integer
Private blnfound As Boolean
Private strLetter1 As String
Private strLetter2 As String
Private strLetter3 As String
Private strLetter4 As String
Private strLetter5 As String

Private Sub cmdDone_Click()
Unload Me
End Sub
Private Sub cmdPlayGame_Click()
blnfound = False
Const strSentinel As String = "!"
Dim strSecretWord As String, intSecretWordLength As Integer
Dim intNumberOfGuesses As Integer
Dim strGuess As String, strWordGuessedSoFar As String
Dim intLetterPos As Integer
strSecretWord = "magic"
intSecretWordLength = Len(strSecretWord)
strWordGuessedSoFar = String(intSecretWordLength, "_")

intNumberOfGuesses = 0
strGuess = InputBox("Guess a letter(! to guess word)", "Hangman")
Do While strGuess <> strSentinel
    intNumberOfGuesses = intNumberOfGuesses + 1
    For intLetterPos = 1 To intSecretWordLength
        If StrComp(strGuess, Mid(strSecretWord, intLetterPos, 1), vbTextCompare) = 0 Then
            lblletter.Visible = True
        End If
    Next intLetterPos
   
    strGuess = InputBox("Guess a letter (! to guess word)", "Hangman")
    Loop
If strGuess = strSentinel Then
    strGuess = InputBox("Guess the Word")
End If
If StrComp(strGuess, strSecretWord, vbTextCompare) = 0 Then
    MsgBox "You win! It took you " & intNumberOfGuesses & "guesses."
 End If
 
 If strGuess = strLetter1 Then
    lblletter(0).Visible = True
    blnfound = True
End If
If strGuess = strLetter2 Then
    lblletter(1).Visible = True
    blnfound = True
End If
If strGuess = strLetter2 Then
    lblletter(2).Visible = True
    blnfound = True
End If
If strGuess = strLetter2 Then
    lblletter(3).Visible = True
    blnfound = True
End If
If strGuess = strLetter2 Then
    lblletter(4).Visible = True
    blnfound = True
End If
If blnfound = False Then
    ShpPerson(intpart).Visible = True
    intpart = intpart + 1
End If
If strGuess <> blnfound Then
    ShpPerson(intpart).Visible = True
    intpart = intpart + 1
End If

End Sub

Private Sub Form_Load()
intpart = 0
strLetter1 = "m"
strLetter2 = "a"
strLetter3 = "g"
strLetter4 = "i"
strLetter5 = "c"
ShpPerson(0).Visible = False
ShpPerson(1).Visible = False
ShpPerson(2).Visible = False
ShpPerson(3).Visible = False
ShpPerson(4).Visible = False
ShpPerson(5).Visible = False

End Sub