Menambah Control Saat Runtime

Dim WithEvents CommandButtonDesign As CommandButton
Private Sub Form_Load()
Set CommandButtonDesign = Controls.Add("vb.CommandButton", "Command1")
With CommandButtonDesign
.Caption = "Design Runtime"
.Width = 1000
.Visible = True
End With
End Sub
Sub CommandButtonDesign_Click()
MsgBox "Hallo...Semua...."
End Sub