Private WithEvents Button As CommandButton
 
Private Sub Button_Click()
   MsgBox "Klick"
End Sub
 
Private Sub Form_Load()
        Set Button = Form1.Controls.Add("VB.CommandButton", "cmdButton" & i)
        Button.Top = i * 500
        Button.Visible = True
        Button.Caption = "Button" & i
End Sub