Hangman Game

Private Sub C1_Click()
Text1.Text = "Incorrect."
CLabel.Visible = True
C1.Enabled = False
Xcounter = Xcounter + 1
If Xcounter = 6 Then
	MsgBox "GAME OVER", vbOKOnly, "HANGMAN"
	LabelB.Caption = "B"
	LabelE.Caption = "E"
	LabelS.Caption = "S"
	LabelT.Caption = "T"
	LabelD.Caption = "D"
	LabelA.Caption = "A"
	LabelD.Caption = "D"
	LabelE.Caption = "E"
	LabelV.Caption = "V"
	LabelE.Caption = "E"
	LabelR.Caption = "R"
Exit Sub
End If
End Sub

Option Explicit

Dim arrayofanswers(10) As String
Dim givenanswer() As String
Dim wronganswers As Integer
Dim ok As Boolean
Dim ano As Double
Dim ano2 As Integer
Dim a As Integer

Public Sub dosearch(x As String)
Dim b As Integer
ok = False
Dim g As Integer
g = 0
For b = 0 To UBound(givenanswer) - 1
If UCase(givenanswer(b)) = x Then
    g = g + 1
    Label3(b) = x
    ok = True
End If
Next
If g >= 1 Then
    If g = 1 Then
        Label2.Caption = "Well Done, there is 1 " & x
    Else
        Label2.Caption = "Well Done, there are " & g & " " & x & "s"
    End If
Else
    Label2.Caption = "Sorry, there are no " & x & "s"
End If
If ok = False Then
    Label1.Caption = Label1.Caption & " X "
    wronganswers = wronganswers + 1
    Dim tempstring As String
    Dim k As Integer
    For k = 0 To UBound(givenanswer) - 1
        tempstring = tempstring & givenanswer(k)
    Next
    Dim vbQuote As String
    vbQuote = Chr(34)
    Dim prompt$
    prompt$ = "Game Over - The Correct Answer Was " & vbQuote & tempstring & vbQuote
    If wronganswers = 6 Then MsgBox (prompt$)
End If
End Sub

Private Sub Command1_Click(Index As Integer)
Command1(Index).Enabled = False
Select Case Index
Case Is = 0
Call dosearch("A")
Case Is = 1
Call dosearch("B")
Case Is = 2
Call dosearch("C")
Case Is = 3
Call dosearch("D")
Case Is = 4
Call dosearch("E")
Case Is = 5
Call dosearch("F")
Case Is = 6
Call dosearch("G")
Case Is = 7
Call dosearch("H")
Case Is = 8
Call dosearch("I")
Case Is = 9
Call dosearch("J")
Case Is = 10
Call dosearch("K")
Case Is = 11
Call dosearch("L")
Case Is = 12
Call dosearch("M")
Case Is = 13
Call dosearch("N")
Case Is = 14
Call dosearch("O")
Case Is = 15
Call dosearch("P")
Case Is = 16
Call dosearch("Q")
Case Is = 17
Call dosearch("R")
Case Is = 18
Call dosearch("S")
Case Is = 19
Call dosearch("T")
Case Is = 20
Call dosearch("U")
Case Is = 21
Call dosearch("V")
Case Is = 22
Call dosearch("W")
Case Is = 23
Call dosearch("X")
Case Is = 24
Call dosearch("Y")
Case Is = 25
Call dosearch("Z")
End Select
End Sub

Private Sub Command2_Click()
Call getrandomquestion
wronganswers = 0
For a = 0 To 25
Command1(a).Enabled = True
If a < 13 Then Label3(a).Caption = "     "
Label1.Caption = ""
Label2.Caption = ""
Next
End Sub

Private Sub Form_Load()
wronganswers = 0
arrayofanswers(0) = "aaaaaaaaaaaa"
arrayofanswers(1) = "bbbbbbbbbbbb"
arrayofanswers(2) = "cccccccccccc"
arrayofanswers(3) = "ddd d d d dd"
arrayofanswers(4) = "eeeeeeeeeeee"
arrayofanswers(5) = "etc"
arrayofanswers(6) = "best dad ever"
arrayofanswers(7) = ""
arrayofanswers(8) = ""
arrayofanswers(9) = ""
Randomize
Call getrandomquestion
End Sub

Private Sub getrandomquestion()
ano = Rnd
ano2 = ano * 9
For a = 1 To 12
Label3(a).Visible = False
Next
ReDim givenanswer(Len(arrayofanswers(ano2)))
For a = 1 To Len(arrayofanswers(ano2))
givenanswer(a - 1) = Left(arrayofanswers(ano2), a)
givenanswer(a - 1) = Right$(givenanswer(a - 1), 1)
If givenanswer(a - 1) = " " Then
    Label3(a - 1).Visible = False
Else
    Label3(a - 1).Visible = True
End If
Next
End Sub