GetScreenRes.bas

#include "windows.bi"

' Get device handle for entire display
Dim as HDC hdc = CreateDC("DISPLAY", NULL, NULL, NULL)

var iWidth = GetDeviceCaps(hdc, HORZRES)
var iHeight = GetDeviceCaps(hdc, VERTRES)

Print "Width", iWidth
Print "Height", iHeight

DeleteDC(hdc)

Sleep