salve

Cliccando su un commbutt e tramite commondialog vorrei aprire la tavolozza dei colori, selezionare un colore ed il colore selezionato dovrebbe riempire lo shape nonché il colore del form.
Ecco il mio codice. Non ricevo nessun errore ma nemmeno si selezionano i colori
(La tavolozza appare per selezionare)

Private Sub command1_Click()
On Error Resume Next
CommonDialog1.ShowColor
Shape1 = CommonDialog1.Color
Form1.BackColor = CommonDialog1.Color

End Sub

cosa NON faccio bene?

grazie
pazienza