... cFormName AS STRING LEN CCFORMNAME MEMBER nUnusePad AS _INT MEMBER nBitsPPel AS DWORD MEMBER nPelWidth AS DWORD MEMBER nPelHeigh AS DWORD MEMBER nDisFlags AS DWORD MEMBER nDisFreq AS DWORD ENDSTRUCT cBuffer:=oDevMode:cBuffer uRet := EnumDisplaySettings(0, 0, @cBuffer) oDevMode:cBuffer:=cBuffer ...