Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Use 32-bit API declaration

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_CXSCREEN = 0 Public Const SM_CYSCREEN = 1 Sub DisplayVideoInfo()     vidWidth = GetSystemMetrics(SM_CXSCREEN)     vidHeight = GetSystemMetrics(SM_CYSCREEN)          Debug.Print vidWidth & " X " & vidHeight End Sub