VERSION 5.00
Begin VB.Form Form1 
   BackColor       =   &H0000FFFF&
   Caption         =   "Hangman"
   ClientHeight    =   7215
   ClientLeft      =   1860
   ClientTop       =   2355
   ClientWidth     =   10710
   LinkTopic       =   "Form1"
   ScaleHeight     =   10830
   ScaleWidth      =   15240
   WindowState     =   2  'Maximized
   Begin VB.CommandButton cmdNewG 
      Caption         =   "&New Game"
      Height          =   495
      Left            =   4800
      TabIndex        =   38
      Top             =   6600
      Width           =   2295
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "Exit"
      Height          =   495
      Left            =   360
      TabIndex        =   33
      Top             =   6600
      Width           =   975
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H0000FFFF&
      Caption         =   "Player 1"
      Height          =   1575
      Left            =   360
      TabIndex        =   0
      Top             =   1200
      Width           =   3135
      Begin VB.CommandButton Command1 
         Caption         =   "Input Word"
         Height          =   375
         Left            =   240
         TabIndex        =   2
         Top             =   960
         Width           =   2415
      End
      Begin VB.TextBox txtInput 
         Height          =   375
         Left            =   240
         TabIndex        =   1
         Top             =   360
         Width           =   2415
      End
   End
   Begin VB.Frame Frame2 
      BackColor       =   &H0000FFFF&
      Caption         =   "Player 2"
      Height          =   3135
      Left            =   360
      TabIndex        =   3
      Top             =   3240
      Width           =   6735
      Begin VB.TextBox Text1 
         BackColor       =   &H0000FFFF&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   24
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   4680
         TabIndex        =   35
         Top             =   2280
         Width           =   495
      End
      Begin VB.CommandButton cmdGuess 
         Caption         =   "Guess Letter"
         Height          =   615
         Left            =   240
         TabIndex        =   32
         Top             =   2280
         Width           =   2775
      End
      Begin VB.TextBox txtGuess 
         BackColor       =   &H0000FFFF&
         Enabled         =   0   'False
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   24
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   6000
         TabIndex        =   31
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdA 
         Caption         =   "A"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   240
         TabIndex        =   30
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdB 
         Caption         =   "B"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   960
         TabIndex        =   29
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdC 
         Caption         =   "C"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   1680
         TabIndex        =   28
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdD 
         Caption         =   "D"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   2400
         TabIndex        =   27
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdE 
         Caption         =   "E"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   3120
         TabIndex        =   26
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdJ 
         Caption         =   "J"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   240
         TabIndex        =   25
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdI 
         Caption         =   "I"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   6000
         TabIndex        =   24
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdH 
         Caption         =   "H"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   5280
         TabIndex        =   23
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdG 
         Caption         =   "G"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   4560
         TabIndex        =   22
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdF 
         Caption         =   "F"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   3840
         TabIndex        =   21
         Top             =   480
         Width           =   495
      End
      Begin VB.CommandButton cmdK 
         Caption         =   "K"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   960
         TabIndex        =   20
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdL 
         Caption         =   "L"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   1680
         TabIndex        =   19
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdM 
         Caption         =   "M"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   2400
         TabIndex        =   18
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdN 
         Caption         =   "N"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   3120
         TabIndex        =   17
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdO 
         Caption         =   "O"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   3840
         TabIndex        =   16
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdP 
         Caption         =   "P"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   4560
         TabIndex        =   15
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdQ 
         Caption         =   "Q"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   5280
         TabIndex        =   14
         Top             =   1080
         Width           =   495
      End
      Begin VB.CommandButton cmdS 
         Caption         =   "S"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   240
         TabIndex        =   12
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdT 
         Caption         =   "T"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   960
         TabIndex        =   11
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdU 
         Caption         =   "U"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   1680
         TabIndex        =   10
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdV 
         Caption         =   "V"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   2400
         TabIndex        =   9
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdW 
         Caption         =   "W"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   3120
         TabIndex        =   8
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdX 
         Caption         =   "X"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   3840
         TabIndex        =   7
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdZ 
         Caption         =   "Z"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   5280
         TabIndex        =   6
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdY 
         Caption         =   "Y"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   4560
         TabIndex        =   5
         Top             =   1680
         Width           =   495
      End
      Begin VB.CommandButton cmdR 
         Caption         =   "R"
         BeginProperty Font 
            Name            =   "Arial"
            Size            =   21.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   540
         Left            =   6000
         TabIndex        =   13
         Top             =   1080
         Width           =   495
      End
      Begin VB.Label Label2 
         BackColor       =   &H0000FFFF&
         Caption         =   "Number of Guesses:"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   3240
         TabIndex        =   34
         Top             =   2280
         Width           =   1335
      End
      Begin VB.Label Label1 
         BackColor       =   &H0000FFFF&
         Caption         =   "Select a letter:"
         Height          =   255
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.Label Label3 
      BackColor       =   &H0000FFFF&
      Caption         =   "HANGMAN"
      BeginProperty Font 
         Name            =   "Lucida Sans Unicode"
         Size            =   48
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   975
      Left            =   3240
      TabIndex        =   37
      Top             =   -120
      Width           =   5055
   End
   Begin VB.Label lblAnswer 
      BackColor       =   &H0000FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   13.5
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   3720
      TabIndex        =   36
      Top             =   1680
      Width           =   4215
   End
   Begin VB.Line rgtleg 
      X1              =   9120
      X2              =   9960
      Y1              =   5280
      Y2              =   6000
   End
   Begin VB.Line lftleg 
      X1              =   9120
      X2              =   8280
      Y1              =   5280
      Y2              =   6000
   End
   Begin VB.Line lftarm 
      X1              =   9120
      X2              =   8160
      Y1              =   3720
      Y2              =   3120
   End
   Begin VB.Line rgtarm 
      X1              =   9120
      X2              =   9960
      Y1              =   3720
      Y2              =   3120
   End
   Begin VB.Line body 
      X1              =   9120
      X2              =   9120
      Y1              =   2880
      Y2              =   5280
   End
   Begin VB.Shape head 
      Height          =   1335
      Left            =   8280
      Shape           =   3  'Circle
      Top             =   1560
      Width           =   1695
   End
   Begin VB.Shape Shape4 
      BackColor       =   &H00000000&
      BackStyle       =   1  'Opaque
      Height          =   375
      Left            =   9000
      Top             =   1200
      Width           =   255
   End
   Begin VB.Shape Shape3 
      BackColor       =   &H00000000&
      BackStyle       =   1  'Opaque
      Height          =   255
      Left            =   9000
      Top             =   960
      Width           =   1935
   End
   Begin VB.Shape Shape2 
      BackColor       =   &H00000000&
      BackStyle       =   1  'Opaque
      Height          =   6015
      Left            =   10800
      Top             =   960
      Width           =   255
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H80000006&
      BackStyle       =   1  'Opaque
      Height          =   255
      Left            =   9240
      Top             =   6840
      Width           =   2415
   End
   Begin VB.Menu mnuFile 
      Caption         =   "&File"
      Begin VB.Menu mnuNew 
         Caption         =   "New Game"
      End
      Begin VB.Menu mnudash 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "&Help"
      Begin VB.Menu mnuHowTo 
         Caption         =   "How To Play"
      End
      Begin VB.Menu mnuVersion 
         Caption         =   "About This Version"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim word As String
Dim letter As String
Dim wrong As Integer
Dim wrongchk As String
Dim iCase As Integer
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdGuess_Click()
If txtGuess.Text = "" Then
MsgBox "Enter a letter to guess"
End If
lblAnswer.Caption = ""
Y = 1
For X = 1 To Len(word)

check_letter = Mid(Form1.txtInput, Y, 1)
letter = Mid(word, X, 1)

If letter = " " Then
Y = Y - 1
ElseIf letter = "_" Then
If Form1.txtGuess = check_letter Then
Mid(word, X, 1) = check_letter
Else
Mid(word, X, 1) = letter
End If

Else
Mid(word, X, 1) = letter
letter = Mid(word, X, 1)

End If
Y = Y + 1
Next
    lblAnswer.Caption = word
    tmpWord = lblAnswer.Caption
    wrongchk = Trim(wrongchk)
    If tmpWord = wrongchk Then
    iCase = iCase + 1
    Select Case iCase
    Case 1
        head.Visible = True
    Case 2
        body.Visible = True
    Case 3
        lftarm.Visible = True
    Case 4
        rgtarm.Visible = True
    Case 5
        lftleg.Visible = True
    Case 6
        rgtleg.Visible = True
    If rgtleg.Visible = True Then
    frmLose.Show
    End If
If rgtleg.Visible = True Then
cmdNewG.Visible = True
    End If
    End Select
    End If
    wrongchk = tmpWord
End Sub
Private Sub cmdNewG_Click()
   txtInput.Text = ""
        txtGuess.Text = ""
        lblAnswer.Caption = ""
        cmdA.Enabled = True
        cmdB.Enabled = True
        cmdC.Enabled = True
        cmdD.Enabled = True
        cmdE.Enabled = True
        cmdF.Enabled = True
        cmdG.Enabled = True
        cmdH.Enabled = True
        cmdI.Enabled = True
        cmdJ.Enabled = True
        cmdK.Enabled = True
        cmdL.Enabled = True
        cmdM.Enabled = True
        cmdN.Enabled = True
        cmdO.Enabled = True
        cmdP.Enabled = True
        cmdQ.Enabled = True
        cmdR.Enabled = True
        cmdS.Enabled = True
        cmdT.Enabled = True
        cmdU.Enabled = True
        cmdV.Enabled = True
        cmdW.Enabled = True
        cmdX.Enabled = True
        cmdY.Enabled = True
        cmdZ.Enabled = True
        txtInput.Visible = True
        head.Visible = False
        body.Visible = False
        lftarm.Visible = False
        rgtarm.Visible = False
        lftleg.Visible = False
        rgtleg.Visible = False
        wrong = 0
        word = txtInput.Text
End Sub
Private Sub Command1_Click()
word = txtInput.Text
txtInput.Visible = False
txtInput.Text = UCase(word)
lblAnswer.Caption = lblAnswer.Caption + "_"
For X = 2 To Len(word)
    lblAnswer.Caption = lblAnswer.Caption + " _"
Next
word = lblAnswer.Caption
End Sub
Private Sub Form_Load()
    head.Visible = False
    body.Visible = False
    lftarm.Visible = False
    rgtarm.Visible = False
    lftleg.Visible = False
    rgtleg.Visible = False
    Text1.Text = "0"
    cmdNewG.Visible = False
End Sub
Private Sub mnuExit_Click()
End
End Sub
Private Sub cmdA_Click()
    txtGuess.Text = "A"
    cmdA.Enabled = False
End Sub
Private Sub cmdJ_Click()
    txtGuess.Text = "J"
    cmdJ.Enabled = False
End Sub
Private Sub cmdK_Click()
    txtGuess.Text = "K"
cmdK.Enabled = False
End Sub
Private Sub cmdL_Click()
    txtGuess.Text = "L"
    cmdL.Enabled = False
End Sub
Private Sub cmdM_Click()
    txtGuess.Text = "M"
    cmdM.Enabled = False
End Sub
Private Sub cmdN_Click()
    txtGuess.Text = "N"
    cmdN.Enabled = False
End Sub
Private Sub cmdO_Click()
    txtGuess.Text = "O"
    cmdO.Enabled = False
End Sub
Private Sub cmdP_Click()
    txtGuess.Text = "P"
    cmdP.Enabled = False
End Sub
Private Sub cmdQ_Click()
    txtGuess.Text = "Q"
    cmdQ.Enabled = False
End Sub
Private Sub cmdR_Click()
    txtGuess.Text = "R"
    cmdR.Enabled = False
End Sub
Private Sub cmdS_Click()
    txtGuess.Text = "S"
    cmdS.Enabled = False
End Sub
Private Sub cmdB_Click()
    txtGuess.Text = "B"
    cmdB.Enabled = False
End Sub
Private Sub cmdT_Click()
    txtGuess.Text = "T"
    cmdT.Enabled = False
End Sub
Private Sub cmdU_Click()
    txtGuess.Text = "U"
    cmdU.Enabled = False
End Sub
Private Sub cmdV_Click()
    txtGuess.Text = "V"
    cmdV.Enabled = False
End Sub
Private Sub cmdW_Click()
    txtGuess.Text = "W"
    cmdW.Enabled = False
End Sub
Private Sub cmdX_Click()
    txtGuess.Text = "X"
    cmdX.Enabled = False
End Sub
Private Sub cmdY_Click()
    txtGuess.Text = "Y"
    cmdY.Enabled = False
End Sub
Private Sub cmdZ_Click()
    txtGuess.Text = "Z"
    cmdZ.Enabled = False
End Sub
Private Sub cmdC_Click()
    txtGuess.Text = "C"
    cmdC.Enabled = False
End Sub
Private Sub cmdD_Click()
    txtGuess.Text = "D"
    cmdD.Enabled = False
End Sub
Private Sub cmdE_Click()
    txtGuess.Text = "E"
    cmdE.Enabled = False
End Sub
Private Sub cmdF_Click()
    txtGuess.Text = "F"
    cmdF.Enabled = False
End Sub
Private Sub cmdG_Click()
    txtGuess.Text = "G"
    cmdG.Enabled = False
End Sub
Private Sub cmdH_Click()
    txtGuess.Text = "H"
    cmdH.Enabled = False
End Sub
Private Sub cmdI_Click()
    txtGuess.Text = "I"
    cmdI.Enabled = False
End Sub
Private Sub mnuHowTo_Click()
frmHowTo.Show
End Sub
Private Sub mnuNew_Click()
        txtInput.Text = ""
        txtGuess.Text = ""
        lblAnswer.Caption = ""
        cmdA.Enabled = True
        cmdB.Enabled = True
        cmdC.Enabled = True
        cmdD.Enabled = True
        cmdE.Enabled = True
        cmdF.Enabled = True
        cmdG.Enabled = True
        cmdH.Enabled = True
        cmdI.Enabled = True
        cmdJ.Enabled = True
        cmdK.Enabled = True
        cmdL.Enabled = True
        cmdM.Enabled = True
        cmdN.Enabled = True
        cmdO.Enabled = True
        cmdP.Enabled = True
        cmdQ.Enabled = True
        cmdR.Enabled = True
        cmdS.Enabled = True
        cmdT.Enabled = True
        cmdU.Enabled = True
        cmdV.Enabled = True
        cmdW.Enabled = True
        cmdX.Enabled = True
        cmdY.Enabled = True
        cmdZ.Enabled = True
        txtInput.Visible = True
        head.Visible = False
        body.Visible = False
        lftarm.Visible = False
        rgtarm.Visible = False
        lftleg.Visible = False
        rgtleg.Visible = False
        wrong = 0
        word = txtInput.Text
End Sub
Private Sub mnuVersion_Click()
frmAbout.Show
End Sub