... end oDevMode:nFields := nOr( DM_PELSWIDTH, DM_PELSHEIGHT ) oDevMode:nPelWidth := nAncho oDevMode:nPelHeigh := nAlto cBuffer:=oDevMode:cBuffer Try ChangeDisplaySettings(@cBuffer, 4) lCamReso := .T. Catch MsgStop("Modo no soportado", "Error" ) End else MsgStop("Modo no soportado", "Error" ) end ...