Load Command1(1)
Command1(1).Move 0, 0
Command1(1).Visible = True

Option Explicit
Dim WithEvents Button1 As CommandButton
 
Private Sub Form_Load()
  ' Neuen Button laden
  Set Button1 = Form1.Controls.Add("VB.CommandButton", "Button1")
  Button1.Move 0, 0
  Button1.Visible = True
End Sub
 
Private Sub Button1_Click()
  MsgBox "Klick"
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de