'
' GetResolution
'
' Author: Joe Strazzere
'
dim x as unsigned
dim y as unsigned
x = External("user32","GetSystemMetrics",0)
y = External("user32","GetSystemMetrics",1)
msgbox("Screen Resolution is "+str$(x)+" x "+Str$(y),,"GetResolution")
