VB Controls.Add und Aktion

[CODE]
Private WithEvents B2 As CommandButton
Private Sub Form_Load()
Set B1 = ME.Controls.Add("VB.CommandButton", "B1")
B1.Caption = "B1"
B1.Move 0, 0
B1.Visible = True
End Sub
[/CODE]

Quasi das unten mit in die Anweisung oben oder so ähnlich.

[CODE]
Private Sub B1_Click()
MsgBox "B1"
End Sub
[/CODE]

So das am Ende nach dem ausführen des Code ein Button inklusive Befehl (z.b.: MsgBox "B1") erstellt wird.

Gruß waldgnarf