Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Public Function ScreenResolution() As String
Dim Largeur As Long, Hauteur As Long
Largeur = GetSystemMetrics(SM_CXSCREEN)
Hauteur = GetSystemMetrics(SM_CYSCREEN)
ScreenResolution = "Le mode vidéo est : " & Largeur & " x " & Hauteur
End Function
Private Sub EXEMPLE()
MsgBox ScreenResolution
End Sub