Si sei sulla strada giusta
Salve,
Il contenuto di quella routine tra Sub..End Sub lo devi incollare dopo il Private Sub CommandButton_Click, però perchè funzioni devi:
Alt+F11 per attivare l'editor di Visual Basic e dal menu strumenti selezionare Riferimenti e dalla lista di riepilogo fare un check sulla casella di controllo corrispondente alla dll che ho indicato nel messaggio precedente Microsoft Shell Controls And Automation
Ciao a presto!!
p.s Ti allego un file zip contenente un foglio di excel con immagini esplicative dell'uso di Obj.ControlPanelItem