Problème Visual Basic débutant

#Region " Imports " 

Imports System.Text 

#End Region 

Public Class Form 

#Region " Commentaires Aucuns " 

#End Region 

#Region " Constantes Aucunes " 

#End Region 

#Region " Membres/Attributs " 

    Private Shadows m_Nom As String = String.Empty 

#End Region 

#Region " Propriétés " 

    Public Property NOM() As String 
        Get 
            Return Me.m_Nom 
        End Get 
        Set(ByVal value As String) 
            Me.m_Nom = value 
        End Set 
    End Property 

#End Region 

#Region " Méthodes " 

#Region " Constructeurs " 

    Public Sub New() 

        ' Cet appel est requis par le Concepteur Windows Form. 
        InitializeComponent() 

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent(). 

    End Sub 

#End Region 

#Region " Évènements " 

    ''' <summary> 
    ''' Cgargement du formulaire 
    ''' </summary> 
    ''' <param name="sender"></param> 
    ''' <param name="e"></param> 
    ''' <remarks></remarks> 
    Private Sub Form_Load(ByVal sender As System.Object, _ 
                          ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 

    Private Sub Nom_Text_TextChanged(ByVal sender As System.Object, _ 
                                     ByVal e As System.EventArgs) Handles Nom_Text.TextChanged 

    End Sub 

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, _ 
                                ByVal e As System.EventArgs) Handles GroupBox1.Enter 

    End Sub 

    Private Sub GroupBox2_Enter(ByVal sender As System.Object, _ 
                                ByVal e As System.EventArgs) Handles GroupBox2.Enter 

    End Sub 

    Private Sub GroupBox3_Enter(ByVal sender As System.Object, _ 
                                ByVal e As System.EventArgs) Handles GroupBox3.Enter 

    End Sub 

    Private Sub lbl_KEYGEN_Click(ByVal sender As System.Object, _ 
                                 ByVal e As System.EventArgs) Handles lbl_KEYGEN.Click 

    End Sub 

    Private Sub GO_Click(ByVal sender As System.Object, _ 
                         ByVal e As System.EventArgs) Handles GO.Click 

        If (Verification()) Then 
            Me.lbl_KEYGEN.Text = Name & Name & "Bonjour" 
            Me.m_Nom = Me.lbl_KEYGEN.Text 
            ' Dans une autre classe il sera possible d'accèder 
            ' à la propriété [ NOM ] qui adresse le membre/attribut [ m_Nom ] 
        Else 
            Me.txt_Erreur.Visible = True 
        End If 
    End Sub 

#End Region 

#Region " Procédures " 

#End Region 

#Region " Fonctions " 

#End Region 

#Region " Validations " 

    ''' <summary> 
    ''' Routine de validation du textbox 
    ''' </summary> 
    ''' <returns></returns> 
    ''' <remarks></remarks> 
    Function Verification() As Boolean 
        Dim Bon As Boolean = True 
        If Me.Nom_Text.Text Is Nothing Then 
            Bon = False 
        End If 
        Return Bon 
    End Function 


#End Region 

#End Region 

End Class