Dim objeto As Object
----------------------------------------------------------
Private Sub Command1_Click()
If Not objeto Is Nothing Then
Controls.Remove objeto
Set objeto = Nothing
End If 'ESTE IF ES POR SI EXISTE EL CONTROL
Set objeto = Controls.Add("VB.CommandButton", "nombreboton")
objeto.Visible = True
objeto.Caption = "Soy un boton"
End Sub