Private Sub btnPlayGame_Click(sender As Object, e As EventArgs) Handles btnPlayGame.Click
Dim numGuesses As Integer = 0
Dim numWrongGuesses As Integer = 0
Dim tempWord, fullWordGuess, letterInput As String
Dim wordGuessedSoFar As String = ""
Dim wrongGuesses As String
Dim RigthLetter As Boolean = False
secretWord = InputBox("Player 1, enter the secret wprd")
secretWord = secretWord.ToUpper
length = secretWord.Length
wordGuessedSoFar = wordGuessedSoFar.PadLeft(length, "-")
Me.lblSecretWord.Text = wordGuessedSoFar
letterInput = InputBox("Player 2, enter a letter or " & FLAG & " to guess word: ", Me.Text).Trim()
If letterInput <> Nothing And letterInput <> FLAG Then
letterGuess = letterInput.Chars(0)
letterGuess = Char.ToUpper(letterGuess)
For I As Integer = 0 To length - 1
If secretWord.Chars(I) = letterGuess Then
tempWord = wordGuessedSoFar.Remove(I, 1)
wordGuessedSoFar = tempWord.Insert(I, letterGuess)
If RigthLetter = False Then
Me.lblnumWrongGuesses.Text = ("Player 2 these are your wrong guesses: " & numWrongGuesses)
wrongGuesses &= letterGuess
wrongGuesses = wrongGuesses.ToUpper
Me.lblwrongGuesses.Text = wrongGuesses
Me.lblSecretWord.Text = wordGuessedSoFar
Loop While letterInput <> FLAG And letterInput <> Nothing And
wordGuessedSoFar <> secretWord
If wordGuessedSoFar = secretWord Then
MessageBox.Show("You guessed it in " & numGuesses & " guesses! Congratulations PLayer 2!!!", Me.Text)
ElseIf letterInput = Nothing Then
MessageBox.Show("Game over. PLayer 1 won!!!", Me.Text)
ElseIf letterInput = FLAG Then
fullWordGuess = InputBox("Player 2, try to guess the word:", Me.Text)
fullWordGuess = fullWordGuess.ToUpper.Trim
If fullWordGuess = secretWord Then
MessageBox.Show("You guessed it in " & numGuesses & " guesses! Awesome PLayer 2!!!", Me.Text)
ElseIf numGuesses = 6 Then
MessageBox.Show("Sorry, you lose! You reachhed 6 guesses. Congratulations Player 1 you won!!", Me.Text)
Me.lblSecretWord.Text = secretWord