Monitores activos y su resolucion

lstScreen is string = SysListScreen()
res is string
i is int = 0
Moni is Control
MoniRes is Control
y is int = 145
FOR EACH STRING screen OF lstScreen SEPARATED BY CR
	i++
	Moni <- ControlCreate("Monitor_"+i, typStatic, 170, y, 300, 26)
	Moni..Caption = ExtractString(screen, lastRank, "\")
	res = SysScreenResolution(screen)
	MoniRes <- ControlCreate("MonitorRes_"+i, typStatic, 474, y, 300, 26)
	MoniRes..Caption = ExtractString(res, 1) + " x " + ExtractString(res, 2)
	y+=27
END