Option Explicit
 
Private TestButton As Object
 
Private Sub Form_Load()
 
   TestButtonZeichnen
 
End Sub
 
Private Sub TestButtonZeichnen()
 
   Set TestButton = Controls.Add( _
      "VB.CommandButton", _
      "CmdButton")
      TestButton.Caption = "TestButton"
      TestButton.Left = 500
      TestButton.Top = 500
      TestButton.Visible = True
 
End Sub
 
Private Sub Command1_Click()
 
   Controls.Remove TestButton
 
End Sub