Private Sub Image1_MouseUp(ByVal Button%, ByVal Shift%, ByVal X!, ByVal Y!)
'(Suppose que les contrôles 0 à 31 sont disposés sur deux colonnes de 16 contrôles
'et qu'ils sont jointifs, de hauteur 16 et de largeur 84, exactement couverts par le
'contrôle Image1.)
CouleursEnCours Y \ 18 + 16 * (X \ 84)
End Sub