Juego del ahorcado en visual basic

Juego del Ahorcado

Bueno aqui les dejo el codigo fuente de la aplicacion que yo realice del juego del ahorcado en visual basic......

Codigo

Public Class Form1

'Dexlaracion de las variables que se utilizaran
Public indice, longitud, i, cuenta_guiones, cuenta, errores As Integer
Public elemento, guiones As String
Public encontrado As Boolean

Private SubSalirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalirToolStripMenuItem.Click
MsgBox("Gracias por jugar 'El Ahorcado' v1.1", MsgBoxStyle.Information)
Me.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
crea_guiones() 'Al iniciar el formulario semanda a llamar el procedimiento el cual creara los guiones en el cmb titulo
End Sub

Private Sub Busca(ByVal letra As Button)
'Procedimiento busca recibe una variable > que es de tipo button
'este procedimiento es el encargado de comparar la letra que se recibio con la palabra que el usuario selecciono previamente.

CmbTitulo.DropDownStyle =ComboBoxStyle.DropDown 'Esta instruccion cambia la propiedad del cmbtitulo y su funcionalidad
CmbTitulo.Enabled = False 'Cambia la propiedad enable a false lo cual siginifica que el usuario no tendra acceso pero si esta visible
If CmbTitulo.Text vbNullString Then 'Condicion para saber si se ha eligido una pelicula o no pra poder comparar si no mostrara un msj. de error
encontrado =False 'Esta es la variable para saber si se encontra la letra recibida (sepone en false inicialmente)
For i = 1 To longitud 'Ciclo para hacer el recorrido en la palabra para ir comparando letra por letra
If elemento.Substring(i - 1, 1) = letra.Text Then ' compara la letra con la letra de la pelicula
Mid(CmbTitulo.Text, i, 1) = letra.Text 'sustituyela letra en la posicion
encontrado = True 'Cambia el valor de > a true ya que si se ha encontrado la letra en la palabra
cuenta = cuenta + 1 'Cuenta las veces que acertaste
If cuenta = cuenta_guiones And errores < 7 Then 'si el valor de cuenta es == al valor de cuenta giones que equivale a las letras de la palabraMsgBox("Felicidades...! Ganastes...!", MsgBoxStyle.Exclamation) 'Entonces te mostrara un msj. de felicidades ganastes
inhabilita_botones(False) 'Inhabilita todos los botones de las letras (Procedimiento el cual recibe una variable de tipo booleana
'el cual determina si se habilita o se inhabilita los botones dependiendo el caso)End If
End If
Next 'fin ciclo
letra.Enabled = False ' Se inhabilita el boton seleccionado

If encontrado = False Then 'Si durante el recorrido no se encontra la letra entonces el valor de > seguira siendo false
'Lo cual significa que perdio una oportunidad
errores = errores + 1 'Cuenta los errorespara ir mostrando los mensajes
If errores < 7 Then 'Si los errores es menor a 7 el cual es el numero de oportunidades (6)
PictureBox1.Image = ImageList1.Images(errores - 1) 'Entonces ira mostrando las imagenes que se encuentran en el imagelist en el picturebox
End If
If errores = 6 Then 'Si los errores revasan el numero deoportunidades
MsgBox("Lo sentimos, tus Oportunidades se Agotaron, Vuelve a Intentarlo") 'Te mostrara un msj. de Perdistes ..!!!
inhabilita_botones(False) 'Se deshabilitaran los botones
End If
End If
LblOportunidades.Text = "Le restan " & 6 - errores & " oportunidades" 'Label en el cual te mostrara el num. de...