Pour contourner le prob du bouton qui reste enfoncé:
Déclarer dans un module:
--------------------------------
Type POINTAPI
        X As Long
        Y As Long
End Type
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Declare Function GetCursorPos Lib "user32" (Lppoint As POINTAPI) As Long

Dans le bouton de la feuille:
-----------------------------------
Private Sub ReyCommand1_Click()
Dim V, PosXY As POINTAPI, P1, P2
    V = GetCursorPos(PosXY)
    P1 = PosXY.X
    P2 = PosXY.Y
    V = SetCursorPos(P1, P2 - ReyCommand1.Height / 15)
    '... suite du code
End Sub
Cela déplace le curseur un peu au dessus du bouton (on peux gérer finement le /15 avec TwipsPerPixels)
slts
Jp

Bonjour Renfield,
Un petit PB...
J'ai un ReyListBox de 30 éléments dont les 10 premiers sont affichés. Si je tape
ReyListBox1.Selected(20) = True
il ne va pas se positionner en affichage sur l'élément. (au contraire du List traditionnel)
Y a t'il qqe chose qui m'echappe ?
Merci de ta réponse
Jp

Félicitations Renfield... c'est super.
Depuis que je connais Reybasics, je reprends tous mes prog pour changer le look VB6 natif.

Pour info... ça sert de lire tous les commentaires, j'étais confronté au PB optionbuttons et j'ai vu que tu avais déjà répondu avec l'option Group.

Encore bravo !