Graphics 800,600
Local myARGB=GetScreenColor(10,10)


Type ARGB
	Field A%,R%,G%,B%
End Type


Function GetScreenPixel:Int(X%,y%)
	Local Grab:TPixmap=GrabPixmap(x,y,1,1)
	Return Grab.ReadPixel(0,0)
End Function


Function ConvertIntToARGB:ARGB(wert%)
	Local loc:ARGB= New ARGB
	loc.A= (wert Shr 24) & 255
	loc.R= (wert Shr 16) & 255
	loc.G= (wert Shr 8) & 255
	loc.B= (wert Shr 0) & 255
	Print loc.a + " " + loc.r + " " + loc.g + " " + loc.b
	Return loc
End Function


Function GetScreenColor:ARGB(x%,y%)
	Local Wert%=GetScreenPixel(x,y)
	Return ConvertIntToARGB(Wert)
End Function