Dim aButton As Control
'------------------
Sub Test
    Set aButton=Me.Controls.Add("Forms.CommandButton.1")
    With aButton
       .left=10
       .top=10
       .wight=100
       .height=40
       .visible=true
       .name="test"
   End With
End Sub