' 'Creation d'un bouton ' Dim x As New Button() ' Nom intern du control x.Name = "btnAjouter" ' Text du bouton x.Text = "Héhé" 'Positionne le bouton sur la feuille x.Location = New Point(Me.m_Location.X + 250, Me.m_Location.Y + 500) ' Demande que sur le click la fonction myButtonHandler_Click soit executée AddHandler x.Click, AddressOf myButtonHandler_Click 'Ajout du control dans la forme Controls.Add(x)