Visual Basic - Crear Objetos

Nesecito algun codigo que me permita crear objetos en tiempo de ejecucion....

Dim new_button As Control

Set new_button = Me.Controls.Add("VB.CommandButton", _
"cmdNew")
With new_button
.Move Command1.Left, Command1.Top + Command1.Height _
+ 120
.Caption = "New Button"
.Visible = True
End With