weazel 0 Newbie Poster

Big Problem!!!
ok hangman all worked perfectly... then suddenly this erro came up!!!

SOMEBODY HELP ME PLEASE THIS IS DUE 2MORROW!!!

ERROR = An unhandled exception of type 'System.Runtime.InteropServices.ExternalException' occurred in system.windows.forms.dll

Additional information: A generic error occurred in GDI+.

Public Class form1
    Inherits System.Windows.Forms.Form
    '      Author:  Misha Mitsnefes 

    'Completed On:  1/4/05

    'Program Name: Hang the Coyote  

    'Folder Names: Hang the Coyote

    'Description: This is the original hangman game with a little twist, instead of hanging a stick figure, you slowly flip the switch of the electric chair untill the coyote is fried:).

    '                            E V A L U A T I O N

    '               Pseudocode  ____ (10)       User Friendly  ____ (10)

    '       Proper Indentation  ____ ( 5)   Program Structure  ____ (10)

    'Descriptive Variable Names ____ ( 5)       Functionality  ____ (50)

    '            Documentation  ____ (10)     Bonus/(Penalty)  ____ ( ?)

    '                            Total  ____ (100)

#Region " Windows Form Designer generated code "

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call

    End Sub

    'Form overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Windows Form Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Windows Form Designer
    'It can be modified using the Windows Form Designer.  
    'Do not modify it using the code editor.
    Friend WithEvents btna As System.Windows.Forms.Button
    Friend WithEvents btnm As System.Windows.Forms.Button
    Friend WithEvents btnl As System.Windows.Forms.Button
    Friend WithEvents btnk As System.Windows.Forms.Button
    Friend WithEvents btnj As System.Windows.Forms.Button
    Friend WithEvents btni As System.Windows.Forms.Button
    Friend WithEvents btng As System.Windows.Forms.Button
    Friend WithEvents btnf As System.Windows.Forms.Button
    Friend WithEvents btne As System.Windows.Forms.Button
    Friend WithEvents btnd As System.Windows.Forms.Button
    Friend WithEvents btnc As System.Windows.Forms.Button
    Friend WithEvents btnb As System.Windows.Forms.Button
    Friend WithEvents btnu As System.Windows.Forms.Button
    Friend WithEvents btnt As System.Windows.Forms.Button
    Friend WithEvents btns As System.Windows.Forms.Button
    Friend WithEvents btnr As System.Windows.Forms.Button
    Friend WithEvents btnq As System.Windows.Forms.Button
    Friend WithEvents btnp As System.Windows.Forms.Button
    Friend WithEvents btno As System.Windows.Forms.Button
    Friend WithEvents btnn As System.Windows.Forms.Button
    Friend WithEvents btny As System.Windows.Forms.Button
    Friend WithEvents btnx As System.Windows.Forms.Button
    Friend WithEvents btnw As System.Windows.Forms.Button
    Friend WithEvents btnv As System.Windows.Forms.Button
    Friend WithEvents btnz As System.Windows.Forms.Button
    Friend WithEvents btnh As System.Windows.Forms.Button
    Friend WithEvents btnstart As System.Windows.Forms.Button
    Friend WithEvents lbloutput As System.Windows.Forms.Label
    Friend WithEvents btnexit As System.Windows.Forms.Button
    Friend WithEvents lblwin As System.Windows.Forms.Label
    Friend WithEvents lblloss As System.Windows.Forms.Label
    Friend WithEvents lblwin1 As System.Windows.Forms.Label
    Friend WithEvents lblloss1 As System.Windows.Forms.Label
    Friend WithEvents lblguesses1 As System.Windows.Forms.Label
    Friend WithEvents lblguesses As System.Windows.Forms.Label
    Friend WithEvents lblmisses1 As System.Windows.Forms.Label
    Friend WithEvents lblmisses As System.Windows.Forms.Label
    Friend WithEvents lbllefty As System.Windows.Forms.Label
    Friend WithEvents lbllefty1 As System.Windows.Forms.Label
    Friend WithEvents picturebox As System.Windows.Forms.PictureBox
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(form1))
        Me.btnstart = New System.Windows.Forms.Button()
        Me.lbloutput = New System.Windows.Forms.Label()
        Me.btnexit = New System.Windows.Forms.Button()
        Me.btna = New System.Windows.Forms.Button()
        Me.btnm = New System.Windows.Forms.Button()
        Me.btnl = New System.Windows.Forms.Button()
        Me.btnk = New System.Windows.Forms.Button()
        Me.btnj = New System.Windows.Forms.Button()
        Me.btni = New System.Windows.Forms.Button()
        Me.btnh = New System.Windows.Forms.Button()
        Me.btng = New System.Windows.Forms.Button()
        Me.btnf = New System.Windows.Forms.Button()
        Me.btne = New System.Windows.Forms.Button()
        Me.btnd = New System.Windows.Forms.Button()
        Me.btnc = New System.Windows.Forms.Button()
        Me.btnb = New System.Windows.Forms.Button()
        Me.btny = New System.Windows.Forms.Button()
        Me.btnx = New System.Windows.Forms.Button()
        Me.btnw = New System.Windows.Forms.Button()
        Me.btnv = New System.Windows.Forms.Button()
        Me.btnu = New System.Windows.Forms.Button()
        Me.btnt = New System.Windows.Forms.Button()
        Me.btns = New System.Windows.Forms.Button()
        Me.btnr = New System.Windows.Forms.Button()
        Me.btnq = New System.Windows.Forms.Button()
        Me.btnp = New System.Windows.Forms.Button()
        Me.btno = New System.Windows.Forms.Button()
        Me.btnn = New System.Windows.Forms.Button()
        Me.btnz = New System.Windows.Forms.Button()
        Me.lblwin = New System.Windows.Forms.Label()
        Me.lblloss = New System.Windows.Forms.Label()
        Me.lbllefty = New System.Windows.Forms.Label()
        Me.lblwin1 = New System.Windows.Forms.Label()
        Me.lbllefty1 = New System.Windows.Forms.Label()
        Me.lblloss1 = New System.Windows.Forms.Label()
        Me.lblguesses1 = New System.Windows.Forms.Label()
        Me.lblguesses = New System.Windows.Forms.Label()
        Me.lblmisses1 = New System.Windows.Forms.Label()
        Me.lblmisses = New System.Windows.Forms.Label()
        Me.picturebox = New System.Windows.Forms.PictureBox()
        Me.SuspendLayout()
        '
        'btnstart
        '
        Me.btnstart.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnstart.ForeColor = System.Drawing.Color.Firebrick
        Me.btnstart.Location = New System.Drawing.Point(48, 328)
        Me.btnstart.Name = "btnstart"
        Me.btnstart.Size = New System.Drawing.Size(80, 24)
        Me.btnstart.TabIndex = 0
        Me.btnstart.Text = "Start"
        '
        'lbloutput
        '
        Me.lbloutput.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbloutput.ForeColor = System.Drawing.Color.Firebrick
        Me.lbloutput.Location = New System.Drawing.Point(200, 328)
        Me.lbloutput.Name = "lbloutput"
        Me.lbloutput.Size = New System.Drawing.Size(408, 40)
        Me.lbloutput.TabIndex = 1
        Me.lbloutput.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'btnexit
        '
        Me.btnexit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnexit.ForeColor = System.Drawing.Color.Firebrick
        Me.btnexit.Location = New System.Drawing.Point(672, 328)
        Me.btnexit.Name = "btnexit"
        Me.btnexit.Size = New System.Drawing.Size(80, 24)
        Me.btnexit.TabIndex = 2
        Me.btnexit.Text = "Exit"
        '
        'btna
        '
        Me.btna.Enabled = False
        Me.btna.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btna.ForeColor = System.Drawing.Color.Firebrick
        Me.btna.Location = New System.Drawing.Point(192, 384)
        Me.btna.Name = "btna"
        Me.btna.Size = New System.Drawing.Size(32, 32)
        Me.btna.TabIndex = 3
        Me.btna.Text = "A"
        '
        'btnm
        '
        Me.btnm.Enabled = False
        Me.btnm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnm.ForeColor = System.Drawing.Color.Firebrick
        Me.btnm.Location = New System.Drawing.Point(576, 384)
        Me.btnm.Name = "btnm"
        Me.btnm.Size = New System.Drawing.Size(32, 32)
        Me.btnm.TabIndex = 4
        Me.btnm.Text = "M"
        '
        'btnl
        '
        Me.btnl.Enabled = False
        Me.btnl.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnl.ForeColor = System.Drawing.Color.Firebrick
        Me.btnl.Location = New System.Drawing.Point(544, 384)
        Me.btnl.Name = "btnl"
        Me.btnl.Size = New System.Drawing.Size(32, 32)
        Me.btnl.TabIndex = 5
        Me.btnl.Text = "L"
        '
        'btnk
        '
        Me.btnk.Enabled = False
        Me.btnk.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnk.ForeColor = System.Drawing.Color.Firebrick
        Me.btnk.Location = New System.Drawing.Point(512, 384)
        Me.btnk.Name = "btnk"
        Me.btnk.Size = New System.Drawing.Size(32, 32)
        Me.btnk.TabIndex = 6
        Me.btnk.Text = "K"
        '
        'btnj
        '
        Me.btnj.Enabled = False
        Me.btnj.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnj.ForeColor = System.Drawing.Color.Firebrick
        Me.btnj.Location = New System.Drawing.Point(480, 384)
        Me.btnj.Name = "btnj"
        Me.btnj.Size = New System.Drawing.Size(32, 32)
        Me.btnj.TabIndex = 7
        Me.btnj.Text = "J"
        '
        'btni
        '
        Me.btni.Enabled = False
        Me.btni.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btni.ForeColor = System.Drawing.Color.Firebrick
        Me.btni.Location = New System.Drawing.Point(448, 384)
        Me.btni.Name = "btni"
        Me.btni.Size = New System.Drawing.Size(32, 32)
        Me.btni.TabIndex = 8
        Me.btni.Text = "I"
        '
        'btnh
        '
        Me.btnh.Enabled = False
        Me.btnh.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnh.ForeColor = System.Drawing.Color.Firebrick
        Me.btnh.Location = New System.Drawing.Point(416, 384)
        Me.btnh.Name = "btnh"
        Me.btnh.Size = New System.Drawing.Size(32, 32)
        Me.btnh.TabIndex = 9
        Me.btnh.Text = "H"
        '
        'btng
        '
        Me.btng.Enabled = False
        Me.btng.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btng.ForeColor = System.Drawing.Color.Firebrick
        Me.btng.Location = New System.Drawing.Point(384, 384)
        Me.btng.Name = "btng"
        Me.btng.Size = New System.Drawing.Size(32, 32)
        Me.btng.TabIndex = 10
        Me.btng.Text = "G"
        '
        'btnf
        '
        Me.btnf.Enabled = False
        Me.btnf.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnf.ForeColor = System.Drawing.Color.Firebrick
        Me.btnf.Location = New System.Drawing.Point(352, 384)
        Me.btnf.Name = "btnf"
        Me.btnf.Size = New System.Drawing.Size(32, 32)
        Me.btnf.TabIndex = 11
        Me.btnf.Text = "F"
        '
        'btne
        '
        Me.btne.Enabled = False
        Me.btne.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btne.ForeColor = System.Drawing.Color.Firebrick
        Me.btne.Location = New System.Drawing.Point(320, 384)
        Me.btne.Name = "btne"
        Me.btne.Size = New System.Drawing.Size(32, 32)
        Me.btne.TabIndex = 12
        Me.btne.Text = "E"
        '
        'btnd
        '
        Me.btnd.Enabled = False
        Me.btnd.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnd.ForeColor = System.Drawing.Color.Firebrick
        Me.btnd.Location = New System.Drawing.Point(288, 384)
        Me.btnd.Name = "btnd"
        Me.btnd.Size = New System.Drawing.Size(32, 32)
        Me.btnd.TabIndex = 13
        Me.btnd.Text = "D"
        '
        'btnc
        '
        Me.btnc.Enabled = False
        Me.btnc.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnc.ForeColor = System.Drawing.Color.Firebrick
        Me.btnc.Location = New System.Drawing.Point(256, 384)
        Me.btnc.Name = "btnc"
        Me.btnc.Size = New System.Drawing.Size(32, 32)
        Me.btnc.TabIndex = 14
        Me.btnc.Text = "C"
        '
        'btnb
        '
        Me.btnb.Enabled = False
        Me.btnb.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnb.ForeColor = System.Drawing.Color.Firebrick
        Me.btnb.Location = New System.Drawing.Point(224, 384)
        Me.btnb.Name = "btnb"
        Me.btnb.Size = New System.Drawing.Size(32, 32)
        Me.btnb.TabIndex = 15
        Me.btnb.Text = "B"
        '
        'btny
        '
        Me.btny.Enabled = False
        Me.btny.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btny.ForeColor = System.Drawing.Color.Firebrick
        Me.btny.Location = New System.Drawing.Point(544, 416)
        Me.btny.Name = "btny"
        Me.btny.Size = New System.Drawing.Size(32, 32)
        Me.btny.TabIndex = 16
        Me.btny.Text = "Y"
        '
        'btnx
        '
        Me.btnx.Enabled = False
        Me.btnx.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnx.ForeColor = System.Drawing.Color.Firebrick
        Me.btnx.Location = New System.Drawing.Point(512, 416)
        Me.btnx.Name = "btnx"
        Me.btnx.Size = New System.Drawing.Size(32, 32)
        Me.btnx.TabIndex = 17
        Me.btnx.Text = "X"
        '
        'btnw
        '
        Me.btnw.Enabled = False
        Me.btnw.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnw.ForeColor = System.Drawing.Color.Firebrick
        Me.btnw.Location = New System.Drawing.Point(480, 416)
        Me.btnw.Name = "btnw"
        Me.btnw.Size = New System.Drawing.Size(32, 32)
        Me.btnw.TabIndex = 18
        Me.btnw.Text = "W"
        '
        'btnv
        '
        Me.btnv.Enabled = False
        Me.btnv.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnv.ForeColor = System.Drawing.Color.Firebrick
        Me.btnv.Location = New System.Drawing.Point(448, 416)
        Me.btnv.Name = "btnv"
        Me.btnv.Size = New System.Drawing.Size(32, 32)
        Me.btnv.TabIndex = 19
        Me.btnv.Text = "V"
        '
        'btnu
        '
        Me.btnu.Enabled = False
        Me.btnu.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnu.ForeColor = System.Drawing.Color.Firebrick
        Me.btnu.Location = New System.Drawing.Point(416, 416)
        Me.btnu.Name = "btnu"
        Me.btnu.Size = New System.Drawing.Size(32, 32)
        Me.btnu.TabIndex = 20
        Me.btnu.Text = "U"
        '
        'btnt
        '
        Me.btnt.Enabled = False
        Me.btnt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnt.ForeColor = System.Drawing.Color.Firebrick
        Me.btnt.Location = New System.Drawing.Point(384, 416)
        Me.btnt.Name = "btnt"
        Me.btnt.Size = New System.Drawing.Size(32, 32)
        Me.btnt.TabIndex = 21
        Me.btnt.Text = "T"
        '
        'btns
        '
        Me.btns.Enabled = False
        Me.btns.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btns.ForeColor = System.Drawing.Color.Firebrick
        Me.btns.Location = New System.Drawing.Point(352, 416)
        Me.btns.Name = "btns"
        Me.btns.Size = New System.Drawing.Size(32, 32)
        Me.btns.TabIndex = 22
        Me.btns.Text = "S"
        '
        'btnr
        '
        Me.btnr.Enabled = False
        Me.btnr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnr.ForeColor = System.Drawing.Color.Firebrick
        Me.btnr.Location = New System.Drawing.Point(320, 416)
        Me.btnr.Name = "btnr"
        Me.btnr.Size = New System.Drawing.Size(32, 32)
        Me.btnr.TabIndex = 23
        Me.btnr.Text = "R"
        '
        'btnq
        '
        Me.btnq.Enabled = False
        Me.btnq.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnq.ForeColor = System.Drawing.Color.Firebrick
        Me.btnq.Location = New System.Drawing.Point(288, 416)
        Me.btnq.Name = "btnq"
        Me.btnq.Size = New System.Drawing.Size(32, 32)
        Me.btnq.TabIndex = 24
        Me.btnq.Text = "Q"
        '
        'btnp
        '
        Me.btnp.Enabled = False
        Me.btnp.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnp.ForeColor = System.Drawing.Color.Firebrick
        Me.btnp.Location = New System.Drawing.Point(256, 416)
        Me.btnp.Name = "btnp"
        Me.btnp.Size = New System.Drawing.Size(32, 32)
        Me.btnp.TabIndex = 25
        Me.btnp.Text = "P"
        '
        'btno
        '
        Me.btno.Enabled = False
        Me.btno.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btno.ForeColor = System.Drawing.Color.Firebrick
        Me.btno.Location = New System.Drawing.Point(224, 416)
        Me.btno.Name = "btno"
        Me.btno.Size = New System.Drawing.Size(32, 32)
        Me.btno.TabIndex = 26
        Me.btno.Text = "O"
        '
        'btnn
        '
        Me.btnn.Enabled = False
        Me.btnn.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnn.ForeColor = System.Drawing.Color.Firebrick
        Me.btnn.Location = New System.Drawing.Point(192, 416)
        Me.btnn.Name = "btnn"
        Me.btnn.Size = New System.Drawing.Size(32, 32)
        Me.btnn.TabIndex = 27
        Me.btnn.Text = "N"
        '
        'btnz
        '
        Me.btnz.Enabled = False
        Me.btnz.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.btnz.ForeColor = System.Drawing.Color.Firebrick
        Me.btnz.Location = New System.Drawing.Point(576, 416)
        Me.btnz.Name = "btnz"
        Me.btnz.Size = New System.Drawing.Size(32, 32)
        Me.btnz.TabIndex = 29
        Me.btnz.Text = "Z"
        '
        'lblwin
        '
        Me.lblwin.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblwin.ForeColor = System.Drawing.Color.Firebrick
        Me.lblwin.Location = New System.Drawing.Point(192, 464)
        Me.lblwin.Name = "lblwin"
        Me.lblwin.Size = New System.Drawing.Size(144, 40)
        Me.lblwin.TabIndex = 30
        Me.lblwin.Text = "Win:"
        '
        'lblloss
        '
        Me.lblloss.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblloss.ForeColor = System.Drawing.Color.Firebrick
        Me.lblloss.Location = New System.Drawing.Point(408, 464)
        Me.lblloss.Name = "lblloss"
        Me.lblloss.Size = New System.Drawing.Size(144, 40)
        Me.lblloss.TabIndex = 31
        Me.lblloss.Text = "Loss:"
        '
        'lbllefty
        '
        Me.lbllefty.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbllefty.ForeColor = System.Drawing.Color.Firebrick
        Me.lbllefty.Location = New System.Drawing.Point(288, 8)
        Me.lbllefty.Name = "lbllefty"
        Me.lbllefty.Size = New System.Drawing.Size(144, 40)
        Me.lbllefty.TabIndex = 32
        Me.lbllefty.Text = "Left:"
        '
        'lblwin1
        '
        Me.lblwin1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblwin1.ForeColor = System.Drawing.Color.Firebrick
        Me.lblwin1.Location = New System.Drawing.Point(328, 464)
        Me.lblwin1.Name = "lblwin1"
        Me.lblwin1.Size = New System.Drawing.Size(64, 40)
        Me.lblwin1.TabIndex = 33
        '
        'lbllefty1
        '
        Me.lbllefty1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lbllefty1.ForeColor = System.Drawing.Color.Firebrick
        Me.lbllefty1.Location = New System.Drawing.Point(432, 8)
        Me.lbllefty1.Name = "lbllefty1"
        Me.lbllefty1.Size = New System.Drawing.Size(64, 40)
        Me.lbllefty1.TabIndex = 34
        '
        'lblloss1
        '
        Me.lblloss1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblloss1.ForeColor = System.Drawing.Color.Firebrick
        Me.lblloss1.Location = New System.Drawing.Point(544, 464)
        Me.lblloss1.Name = "lblloss1"
        Me.lblloss1.Size = New System.Drawing.Size(64, 40)
        Me.lblloss1.TabIndex = 35
        '
        'lblguesses1
        '
        Me.lblguesses1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblguesses1.ForeColor = System.Drawing.Color.Firebrick
        Me.lblguesses1.Location = New System.Drawing.Point(152, 8)
        Me.lblguesses1.Name = "lblguesses1"
        Me.lblguesses1.Size = New System.Drawing.Size(64, 40)
        Me.lblguesses1.TabIndex = 37
        '
        'lblguesses
        '
        Me.lblguesses.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblguesses.ForeColor = System.Drawing.Color.Firebrick
        Me.lblguesses.Location = New System.Drawing.Point(8, 8)
        Me.lblguesses.Name = "lblguesses"
        Me.lblguesses.Size = New System.Drawing.Size(144, 40)
        Me.lblguesses.TabIndex = 36
        Me.lblguesses.Text = "Guesses:"
        '
        'lblmisses1
        '
        Me.lblmisses1.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblmisses1.ForeColor = System.Drawing.Color.Firebrick
        Me.lblmisses1.Location = New System.Drawing.Point(712, 8)
        Me.lblmisses1.Name = "lblmisses1"
        Me.lblmisses1.Size = New System.Drawing.Size(64, 40)
        Me.lblmisses1.TabIndex = 39
        '
        'lblmisses
        '
        Me.lblmisses.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.lblmisses.ForeColor = System.Drawing.Color.Firebrick
        Me.lblmisses.Location = New System.Drawing.Point(568, 8)
        Me.lblmisses.Name = "lblmisses"
        Me.lblmisses.Size = New System.Drawing.Size(144, 40)
        Me.lblmisses.TabIndex = 38
        Me.lblmisses.Text = "Misses:"
        '
        'picturebox
        '
        Me.picturebox.Image = CType(resources.GetObject("picturebox.Image"), System.Drawing.Bitmap)
        Me.picturebox.Location = New System.Drawing.Point(216, 56)
        Me.picturebox.Name = "picturebox"
        Me.picturebox.Size = New System.Drawing.Size(336, 264)
        Me.picturebox.TabIndex = 40
        Me.picturebox.TabStop = False
        '
        'form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.Black
        Me.ClientSize = New System.Drawing.Size(784, 518)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.picturebox, Me.lblmisses1, Me.lblmisses, Me.lblguesses1, Me.lblguesses, Me.lblloss1, Me.lbllefty1, Me.lblwin1, Me.lbllefty, Me.lblloss, Me.lblwin, Me.btnz, Me.btnn, Me.btno, Me.btnp, Me.btnq, Me.btnr, Me.btns, Me.btnt, Me.btnu, Me.btnv, Me.btnw, Me.btnx, Me.btny, Me.btnb, Me.btnc, Me.btnd, Me.btne, Me.btnf, Me.btng, Me.btnh, Me.btni, Me.btnj, Me.btnk, Me.btnl, Me.btnm, Me.btna, Me.btnexit, Me.lbloutput, Me.btnstart})
        Me.Name = "form1"
        Me.Text = "Hangman Game"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Dim word As String
    Dim counter As Integer
    Dim length As Decimal
    Dim display As String




    'play button
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstart.Click
        word = GetNewWord("mm.txt") 'gets word from txt file
        enable() 'when play is clicked all letters are enabled
        lbloutput.Text = underscore(word.Length, "") 'displays underscores
        lblmisses1.Text = "0" 'resets
        lbllefty1.Text = "5" 'resets
        lblguesses1.Text = "0" 'resets
        If lbloutput.Text = "" Then 'message when u run out of words
            MessageBox.Show("Sorry... you dont get to kill Wile E. Coyote again. You ran out of words...")
        End If
        picturebox.Image = Image.FromFile("1.jpg") 'resets first image
    End Sub


    'underscore function
    Private Function underscore(ByVal wordlength As Integer, ByVal undscore As String) As String
        For wordlength = 0 To wordlength - 1
            undscore += "_ "
        Next

        Return undscore
    End Function

    'main function
    Private Function check(ByVal letter As String, ByVal place As Integer, ByVal testletter As String) As String
        Dim word1 As String
        Dim total As String
        Dim one As String
        Dim two As String
        If letter.ToUpper = testletter.ToUpper Then
            If place = 0 Then
                word1 = lbloutput.Text
                one = word1.Substring(place * 2 + 1)
                total = letter + one
                Return total
            End If
            If place > 0 Then
                word1 = lbloutput.Text
                two = word1.Substring(0, place * 2)
                one = word1.Substring(place * 2 + 1)
                total = two + letter + one
                Return total
            End If
        Else
            Return lbloutput.Text
        End If
    End Function



    'sub that is sent to main function to display word
    Private Sub ihatesubs(ByVal letter As String)
        Dim intcounter As Integer
        For intcounter = 0 To word.Length - 1 Step 1
            lbloutput.Text = check(letter, intcounter, word.Substring(intcounter, 1))
        Next


    End Sub

    'function to determine how many letters left to click
    Private Function lefty()
        lbllefty1.Text = 5 - Val(lblmisses1.Text)
    End Function

    'function to count the number of letters clicked
    Private Sub guesses()
        lblguesses1.Text = Val(lblguesses1.Text) + 1
    End Sub

    'functino to determine number of wrong letters clicked, also to display images when wrong
    Private Sub misses(ByVal letter As String)
        If word.IndexOf(letter) = -1 Then
            lblmisses1.Text = Val(lblmisses1.Text) + 1
        End If
        If lblmisses1.Text = "1" Then
            picturebox.Image = Image.FromFile("cayote1.gif")
        End If
        If lblmisses1.Text = "2" Then
            picturebox.Image = Image.FromFile("cayote2.gif")
        End If
        If lblmisses1.Text = "3" Then
            picturebox.Image = Image.FromFile("cayote3.gif")
        End If
        If lblmisses1.Text = "4" Then
            picturebox.Image = Image.FromFile("uho.jpg")
        End If
        If lblmisses1.Text = "5" Then
            picturebox.Image = Image.FromFile("6.jpg")
        End If
    End Sub
    Private Sub lose()
        If lblmisses1.Text = "5" Then
            lblloss1.Text = Val(lblloss1.Text) + 1
            lblmisses1.Text = "0"
            lbllefty1.Text = "5"
            lblguesses1.Text = "0"
            disable()
            MessageBox.Show("YAY!!!! YOU GOT TO KILL HIM!!!! :) ... The word was " & word)

        End If
    End Sub
    Private Sub win()
        If lbloutput.Text.IndexOf("_") = -1 Then
            lblwin1.Text = Val(lblwin1.Text) + 1
            disable()
            lblmisses1.Text = "0"
            lbllefty1.Text = "5"
            lblguesses1.Text = "0"
            MessageBox.Show("Awww... you didn't get to kill him, thats ok, you can try again!")
        End If
    End Sub





    Private Function enable()
        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 Function

    Private Function disable()
        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 Function









    '----------------------------------------------------LETTER CLICK EVENTS--------------------------------------------------------------------
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btna.Click
        btna.Enabled = False
        ihatesubs("a")
        misses("a")
        lefty()
        guesses()
        lose()
        win()
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnb.Click
        btnb.Enabled = False
        ihatesubs("b")
        misses("b")
        lefty()
        guesses()
        lose()
        win()
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnc.Click
        btnc.Enabled = False
        ihatesubs("c")
        misses("c")
        lefty()
        guesses()
        lose()
        win()
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnd.Click
        btnd.Enabled = False
        ihatesubs("d")
        misses("d")
        lefty()
        guesses()
        lose()
        win()
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btne.Click
        ihatesubs("e")
        btne.Enabled = False
        misses("e")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnf.Click
        ihatesubs("f")
        btnf.Enabled = False
        misses("f")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btng.Click
        ihatesubs("g")
        btng.Enabled = False
        misses("g")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnh.Click
        ihatesubs("h")
        btnh.Enabled = False
        misses("h")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btni.Click
        ihatesubs("i")
        btni.Enabled = False
        misses("i")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnj.Click
        ihatesubs("j")
        btnj.Enabled = False
        misses("j")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnk.Click
        ihatesubs("k")
        btnk.Enabled = False
        misses("k")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnl.Click
        ihatesubs("l")
        btnl.Enabled = False
        misses("l")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnm.Click
        ihatesubs("m")
        btnm.Enabled = False
        misses("m")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnn.Click
        ihatesubs("n")
        btnn.Enabled = False
        misses("n")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btno.Click
        ihatesubs("o")
        btno.Enabled = False
        misses("o")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnp.Click
        ihatesubs("p")
        btnp.Enabled = False
        misses("p")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnq.Click
        ihatesubs("q")
        btnq.Enabled = False
        misses("q")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnr.Click
        ihatesubs("r")
        btnr.Enabled = False
        misses("r")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btns.Click
        ihatesubs("s")
        btns.Enabled = False
        misses("s")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnt.Click
        ihatesubs("t")
        btnt.Enabled = False
        misses("t")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnu.Click
        ihatesubs("u")
        btnu.Enabled = False
        misses("u")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnv.Click
        ihatesubs("v")
        btnv.Enabled = False
        misses("v")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnw.Click
        ihatesubs("w")
        btnw.Enabled = False
        misses("w")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnx.Click
        ihatesubs("x")
        btnx.Enabled = False
        misses("x")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btny.Click
        ihatesubs("y")
        btny.Enabled = False
        misses("y")
        win()
        lefty()
        guesses()
        lose()
    End Sub
    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnz.Click
        ihatesubs("z")
        btnz.Enabled = False
        misses("z")
        win()
        lefty()
        guesses()
        lose()
    End Sub

    '--------------------------------------------------ABCDEFGHIJKLMNOPQRSTUVQXYZ-------------------------------------------------------------------


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit.Click
        Me.Close()
    End Sub



    Private Sub lblguesses1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblguesses1.Click

    End Sub
End Class

ok hangman all worked perfectly... then suddenly this erro came up!!!

SOMEBODY HELP ME PLEASE THIS IS DUE 2MORROW!!!

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.