Commandbutton dynamic + de la couleur

bonjour a tous

Est ce que quelqu'un sait comment rajouter de la couleur a un commandbutton dynamic
Ca beug au niveau de ( .Style )

voici le code :
------------------------------------------------------------------------
Private WithEvents cmd1 As CommandButton
------------------------------------------------------------------------
Private Sub Form_Load()
Set cmd1 = Controls.Add("VB.CommandButton", "cmd1")
With cmd1
.Visible = True
.Width = 1000 'LargueurDuCmd.
.Height = 400 'HauteurDuCmd.
.Top = 0 'ToutVersBordEnHaut
.Left = 0 'ToutVersBordGauche.
.Caption = "cmd1"
.FontSize = 10
.BackColor = RGB(255, 255, 0)
.Appearance = 1
.Style = 1 '<------( CA BEUG LA)
End With
End Sub
---------------------------------------------------------------------------
Salut a tous et Merci