#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local aScreenRes := NilLocal cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função GetScreenRes |//+----------------------------------------------------------------------------+ aScreenRes := GetScreenRes() cMensagem += "Horizontal: " + cValToChar(aScreenRes[1]) + CRLF cMensagem += "Vertical: " + cValToChar(aScreenRes[2])//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do GetScreenRes")