"...scelti dal menu a tendina della combobox stessa"
Come ti è già stato segnalato devi usare l'evento click con la proprietà ListIndex; ad esempio:
codice:Private Sub Combo3_Click() Select Case Combo3.ListIndex Case 0 RevRGB = &HE0E0E0 'Grigio chiaro standard If RevXRGB <> RevRGB Then RevXRGB = RevRGB FrmAA.BackColor = RevRGB End If Case 1 Call ChangeColorForm 'Personalizzato Case ... ... End Select End Sub![]()