I am making a Hangman game and it has gone bizzerk. Can you help figure out the last part to fix it? I need it to Randomly pick a word then put it in the TxtBox but as question marks. Then you have to guess the word and the legs,arms and finally the head will go "POOF" if you get it wrong. All the letters used go to the a "Used letter" TxtBox and the letter button become disabled. I am stuck help me if you can figure out the finally part.

~Code listed below~

 *Warning it is VERY long*  

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Public Class Form1

Inherits System.Windows.Forms.Form

Dim theWord As String

Dim arrayWord(8) As String

Dim wrongGuess As Integer

Dim myrand As Integer

Dim wordcount As Integer

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

Dim arrayWord() As String

Dim myrand2 As Random

Dim myword As String

Dim x As Integer

Dim ff As Integer

wrongGuess = 0 ' reset wrong guesses

' Get a unique file number

Dim strAnimal() As String

Dim i As Integer

' Open the file for input to read it

' Add each line from the file to an arrray

Do While Not EOF(ff)

ReDim Preserve strAnimal(i)

strAnimal(i) = FileSystem.LineInput(ff)

i += 1

Loop

' Close the file

ReDim arrayWord(Len(myrand))

' Initalize the random generator

' Get a random index

i = CType(Rnd() * (i + 1), Integer)

' Show the random line in the text box

If Len(myrand) = 0 Then

Exit Sub

Else

Call enableAll() ' enable all letters

End If

For x = 1 To Len(myrand)

lblWord.Text += "?"

arrayWord(x) = "?"

Next

btn1.Enabled = False

btn2.Enabled = False

btn3.Enabled = False

btnAgain.Enabled = True

End Sub

Private Sub btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2.Click

wrongGuess = 0 ' reset wrong guesses

Call enableAll() ' enable all letters

Dim x As Integer

Dim ff As Integer

Dim strComput() As String

Dim i As Integer

' Get a unique file number

' Open the file for input to read it

' Add each line from the file to an arrray

Do While Not EOF(ff)

ReDim Preserve strComput(i)

strComput(i) = FileSystem.LineInput(ff)

i += 1

Loop

' Close the file

' Initalize the random generator

' Get a random index

i = CType(Rnd() * (i + 1), Integer)

' Show the random line in the text box

'lblWord.Text = strComput(i)

If Len(myrand) = 0 Then

Exit Sub

Else

Call enableAll() ' enable all letters

ReDim arrayWord(Len(myrand))

End If

For x = 1 To Len(theWord)

lblWord.Text += "?"

arrayWord(x) = "?"

Next

btn1.Enabled = False

btn2.Enabled = False

btn3.Enabled = False

btnAgain.Enabled = True

End Sub

Private Sub btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3.Click

wrongGuess = 0 ' reset wrong guesses

Call enableAll() ' enable all letters

Dim x As Integer

Dim ff As Integer

Dim strCar() As String

Dim i As Integer

' Get a unique file number

' Open the file for input to read it

' Add each line from the file to an arrray

Do While Not EOF(ff)

ReDim Preserve strCar(i)

strCar(i) = FileSystem.LineInput(ff)

i += 1

Loop

' Close the file

' Initalize the random generator

' Get a random index

i = CType(Rnd() * (i + 1), Integer)

' Show the random line in the text box

'lblWord.Text = strCar(i)

If Len(myrand) = 0 Then

Exit Sub

Else

Call enableAll() ' enable all letters

ReDim arrayWord(Len(myrand))

End If

For x = 1 To Len(theWord)

lblWord.Text += "?"

arrayWord(x) = "?"

Next

btn1.Enabled = False

btn2.Enabled = False

btn3.Enabled = False

End Sub

Private Sub lblWord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblWord.Click

End Sub

Public Sub guess(ByVal letter As String)

lblWord.Text = ""

Dim goodFlag As Boolean = False

Dim x As Integer

Dim winFlag As Boolean = True

' check to see if the letter fits

For x = 1 To Len(theWord)

If letter = Mid(theWord, x, 1) Then

goodFlag = True

End If

Next

' see if its a winner or not

For x = 1 To Len(theWord)

If "?" = arrayWord(x) Then

winFlag = False

Exit For

End If

Next

If winFlag = True Then

btnAgain.Enabled = True

Exit Sub

End If

' put the letter in if correct

If goodFlag = False Then

Call SubwrongGuess()

End If

End Sub

Public Sub SubwrongGuess()

wrongGuess += 1

lblWrongcount.Text = wrongGuess

If wrongGuess = 1 Then PictureBox10.Visible = False

If wrongGuess = 2 Then PictureBox9.Visible = False

If wrongGuess = 3 Then PictureBox8.Visible = False

If wrongGuess = 4 Then PictureBox7.Visible = False

If wrongGuess = 5 Then PictureBox6.Visible = False

If wrongGuess = 5 Then pb1.Image = ImageList1.Images(1)

If wrongGuess = 6 Then PictureBox5.Visible = False

If wrongGuess = 7 Then PictureBox4.Visible = False

If wrongGuess = 8 Then PictureBox3.Visible = False

If wrongGuess = 9 Then PictureBox2.Visible = False

If wrongGuess = 10 Then PictureBox1.Visible = False

If wrongGuess = 10 Then pb1.Image = ImageList1.Images(2)

If wrongGuess = 11 Then

Call disableAll()

MessageBox.Show("You loose...")

End If

End Sub

Public Sub ResetAll()

btnA.Visible = True

btnB.Visible = True

btnc.Visible = True

btnD.Visible = True

btnE.Visible = True

btnF.Visible = True

btnG.Visible = True

btnH.Visible = True

btnI.Visible = True

btnJ.Visible = True

btnK.Visible = True

btnL.Visible = True

btnM.Visible = True

btnN.Visible = True

btnO.Visible = True

btnP.Visible = True

btnQ.Visible = True

btnR.Visible = True

btnS.Visible = True

btnT.Visible = True

btnU.Visible = True

btnV.Visible = True

btnW.Visible = True

btnX.Visible = True

btnY.Visible = True

btnZ.Visible = True

btnGo.Enabled = True

'txtWord.Text = ""

'txtWord.Focus()

Call disableAll()

lblWrongcount.Text = "0"

lblWrong.Text = ""

pb1.Image = ImageList1.Images(0)

PictureBox1.Visible = True

PictureBox2.Visible = True

PictureBox3.Visible = True

PictureBox4.Visible = True

PictureBox5.Visible = True

PictureBox6.Visible = True

PictureBox7.Visible = True

PictureBox8.Visible = True

PictureBox9.Visible = True

PictureBox10.Visible = True

End Sub

Public Sub enableAll()

btnA.Enabled = True

btnB.Enabled = True

btnc.Enabled = True

btnD.Enabled = True

btnE.Enabled = True

btnF.Enabled = True

btnG.Enabled = True

btnH.Enabled = True

btnI.Enabled = True

btnJ.Enabled = True

btnK.Enabled = True

btnL.Enabled = True

btnM.Enabled = True

btnN.Enabled = True

btnO.Enabled = True

btnP.Enabled = True

btnQ.Enabled = True

btnR.Enabled = True

btnS.Enabled = True

btnT.Enabled = True

btnU.Enabled = True

btnV.Enabled = True

btnW.Enabled = True

btnX.Enabled = True

btnY.Enabled = True

btnZ.Enabled = True

End Sub

Public Sub disableAll()

btnA.Enabled = False

btnB.Enabled = False

btnc.Enabled = False

btnD.Enabled = False

btnE.Enabled = False

btnF.Enabled = False

btnG.Enabled = False

btnH.Enabled = False

btnI.Enabled = False

btnJ.Enabled = False

btnK.Enabled = False

btnL.Enabled = False

btnM.Enabled = False

btnN.Enabled = False

btnO.Enabled = False

btnP.Enabled = False

btnQ.Enabled = False

btnR.Enabled = False

btnS.Enabled = False

btnT.Enabled = False

btnU.Enabled = False

btnV.Enabled = False

btnW.Enabled = False

btnX.Enabled = False

btnY.Enabled = False

btnZ.Enabled = False

End Sub

Private Sub btnA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnA.Click

guess(btnA.Text)

btnA.Visible = False

End Sub

Private Sub btnB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnB.Click

guess(btnB.Text)

btnB.Visible = False

End Sub

Private Sub btnc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnc.Click

guess(btnc.Text)

btnc.Visible = False

End Sub

Private Sub btnD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnD.Click

guess(btnD.Text)

btnD.Visible = False

End Sub

Private Sub btnE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnE.Click

guess(btnE.Text)

btnE.Visible = False

End Sub

Private Sub btnF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF.Click

guess(btnF.Text)

btnF.Visible = False

End Sub

Private Sub btnG_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnG.Click

guess(btnG.Text)

btnG.Visible = False

End Sub

Private Sub btnH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnH.Click

guess(btnH.Text)

btnH.Visible = False

End Sub

Private Sub btnI_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnI.Click

guess(btnI.Text)

btnI.Visible = False

End Sub

Private Sub btnJ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJ.Click

guess(btnJ.Text)

btnJ.Visible = False

End Sub

Private Sub btnK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnK.Click

guess(btnK.Text)

btnK.Visible = False

End Sub

Private Sub btnL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnL.Click

guess(btnL.Text)

btnL.Visible = False

End Sub

Private Sub btnM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnM.Click

guess(btnM.Text)

btnM.Visible = False

End Sub

Private Sub btnN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnN.Click

guess(btnN.Text)

btnN.Visible = False

End Sub

Private Sub btnO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnO.Click

guess(btnO.Text)

btnO.Visible = False

End Sub

Private Sub btnP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnP.Click

guess(btnP.Text)

btnP.Visible = False

End Sub

Private Sub btnQ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQ.Click

guess(btnQ.Text)

btnQ.Visible = False

End Sub

Private Sub btnR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnR.Click

guess(btnR.Text)

btnR.Visible = False

End Sub

Private Sub btnS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnS.Click

guess(btnS.Text)

btnS.Visible = False

End Sub

Private Sub btnT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnT.Click

guess(btnT.Text)

btnT.Visible = False

End Sub

Private Sub btnU_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnU.Click

guess(btnU.Text)

btnU.Visible = False

End Sub

Private Sub btnV_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnV.Click

guess(btnV.Text)

btnV.Visible = False

End Sub

Private Sub btnW_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnW.Click

guess(btnW.Text)

btnW.Visible = False

End Sub

Private Sub btnX_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnX.Click

guess(btnX.Text)

btnX.Visible = False

End Sub

Private Sub btnY_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnY.Click

guess(btnY.Text)

btnY.Visible = False

End Sub

Private Sub btnZ_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnZ.Click

guess(btnZ.Text)

btnZ.Visible = False

End Sub

Private Sub btnAgain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAgain.Click

Call ResetAll()

btnAgain.Enabled = False ' disable play again until game over

btn1.Enabled = True

btn2.Enabled = True

btn3.Enabled = True

End Sub

End Class

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I live my life A quarter mile at a time.

Wise man once said, man who goes to bed with it

I know enough to be dangerious.

It is hard to understand how a cemetery can raise its burial rates and blame it on the cost of living.