Aide à la programmation VB

Module Module1

    Sub Main()
        Dim estTrouve As Boolean = False
        Dim Rejouer As Integer = 0
        Dim Lettre As String = ""
        Dim Nombre As Integer
        Randomize()
        Dim NombreMystere As Integer = CInt(Rnd() * 1000 + 1)
        Dim NombreDeCoups As Integer = 0
        Dim Prenom As String
        Console.WriteLine("----------------Jeu du Nombre Mystère----------------")
        Console.WriteLine("Avant de commencer, je vais vous demander votre prénom.")
        Prenom = Console.ReadLine()
        Console.WriteLine("Bonjour " & Prenom & ", vous allez jouer au jeu du Nombre Mystère réalisé par Matthieu Lepers. Si vous rencontrez un problème avec ce jeu, veuillez le contacté à cette adresse : matthieulepers@hotmail.fr")
        Console.WriteLine()
        Do
            Do
                Console.WriteLine("Entrez un nombre entre 1 et 1000")
                NombreDeCoups = NombreDeCoups + 1
                Lettre = Console.ReadLine()
            Loop Until IsNumeric(Lettre)
            Nombre = Lettre
            If Nombre > NombreMystere Then
                Console.Beep(1000, 200)
                Console.WriteLine("Entrez un nombre plus petit")
                Console.WriteLine()
            End If
            If Nombre < NombreMystere Then
                Console.Beep(500, 200)
                Console.WriteLine("Entrez un nombre plus grand")
                Console.WriteLine()
            End If
            If Nombre = NombreMystere Then
                Console.Beep(1000, 200)
                Console.Beep(1000, 200)
                Console.Beep(1000, 200)
                Console.WriteLine("Bravo " & Prenom & ", vous avez trouvé le Nombre Mystère qui était " & NombreMystere & " en " & NombreDeCoups & " coups.")
            End If
        Loop While estTrouve = False
        Console.WriteLine("Appuyez sur une touche pour continuer...")
        Console.ReadKey()
    End Sub
End Module

    Private Sub CB_ESPECE_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CB_ESPECE.SelectedIndexChanged
        If Me.CB_ESPECE.Text = "Zarbi" Then
            Me.CB_FORME.Enabled = True
            Me.CB_FORME.Text = "!" //Comment je fait pour  passé une ligne en sachant que Zarbi a beaucoups de formes ?
          ElseIf Me.CB_ESPECE.Text IsNot "Zarbi" Then
            Me.CB_FORME.Enabled = False
        End If
    End Sub


en français ça donne si Zarbi est selectionné dans la combobox ESPECE alors la combobox FORME est utilisable
Sinon si ce n'est pas Zarbi qui est séléctionné dans la CB_ESPECE alors la CB_FORME n'est pas utilisable (pokémon n'ayant pas de forme)