Sysmetric(1) = width
sysmetric(2) = height

example:
wait window 'The Resolution is:'+chr(13)+'Width: '+alltrim(str(sysmetric(1)))+chr(13)+'Height: '+alltrim(str(sysmetric(2)))