cambio immagine se riceve il focus il bottone

[speriamobene]

un bottone con icona grafica.
ebbene.
vorrei che quando ci clicco sopra l'immagine sia IMGCOLOR.ICO mentre quando nn è selezionata, mostri IMGBIANCOENERO.ICO.

ebbene... ho visto che se disabilitato l'effetto funziona ma questo nn mi xmette di cliccarci sopra.

esiste qualche soluzione + intelligente x ottenere quanto desiderato, invece che fare 2 pulsanti da rendere visibili in modo alterno?

[codo82]

Prova così:

Private Sub Command1_GotFocus()
Command1.Picture = LoadPicture("IMGCOLOR.ICO")
End Sub

Private Sub Command1_LostFocus()
Command1.Picture = LoadPicture("IMGBIANCOENERO.ICO")
End Sub

[speriamobene]

grazie!
ovviamente funziona!