Sysmetric(1) = largura
sysmetric(2) = altura

exemplo:
wait window 'A resolução é:'+chr(13)+largura: '+alltrim(str(sysmetric(1)))+chr(13)+'altura: '+alltrim(str(sysmetric(2)))