Très facile: il faut déclarer le contrôle au niveau module avec évènements:
Dim WithEvents newControl As VB.CommandButton
Private Sub Form_Load()
Set newControl = Me.Controls.Add("VB.CommandButton", "btnOK")
With newControl
.Left = (Me.ScaleWidth - newControl.Width) / 2
.Top = Me.ScaleHeight - newControl.Height - 200
.Caption = "OK"
.Visible = True
End With
End Sub
Private Sub newControl_Click()
MsgBox "C'est le contrôle " & newControl.Name
mimizanzan