Private WithEvents Command1 As CommandButton
Private Sub Command1_Click()
Set Command1 = Controls.Add("VB.CommandButton", "Command1") 
With Command1
.Visible = True
.Height = 1000
.Width = 1000
.Top = 100
.Left = 100
.Caption = "новая"
End With
End Sub