Private Const SM_CXSCREEN As Integer = 0 'Largeur de l'écran.
Private Const SM_CYSCREEN  As Integer = 1 'Hauteur de l'écran.
Private Const SM_CXVSCROLL  As Integer = 2 'Largeur des barres de défilement verticales.
Private Const SM_CYHSCROLL  As Integer = 3 'Hauteur des barres de défilement horizontales.
Private Const SM_CYCAPTION As Integer = 4 'Hauteur d'affichage du titre
Private Const SM_CXBORDER  As Integer = 5 'Largeur d'une bordure de fenêtre.
Private Const SM_CYBORDER  As Integer = 6 'Hauteur d'une bordure de fenêtre.
Private Const SM_CXICON  As Integer = 11 'Largeur d'un icône.
Private Const SM_CYICON  As Integer = 12 'Hauteur d'un icône.
Private Const SM_CXCURSOR  As Integer = 13 'Largeur du curseur.
Private Const SM_CYCURSOR  As Integer = 14 'Hauteur du curseur.
Private Const SM_CYMENU  As Integer = 15 'Hauteur d'une barre de menu.
Private Const SM_MOUSEPRESENT  As Integer = 19 'Indique si une souris est présente (renvoie 'Vrai' ou 'Faux').
Private Const SM_CYVSCROLL  As Integer = 20 'Hauteur des flèches dans les barres de défilement verticales.
Private Const SM_CXHSCROLL  As Integer = 21 'Largeur des flèches dans les barres de défilement horizontales.
Private Const SM_SWAPBUTTON  As Integer = 23 'Indique si les boutons droit et gauche de la souris sont inversés (renvoie 'Vrai' ou 'Faux').
Private Const SM_CXDOUBLECLK  As Integer = 36 'Largeur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte.
Private Const SM_CYDOUBLECLK  As Integer = 37 'Hauteur maximale à ne pas dépasser pour qu'un double-clic soit pris en compte.
Private Const SM_CMOUSEBUTTONS  As Integer = 43 'Indique le nombre de boutons présents sur la souris.

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long