Function SetARGB(a=255,r=255,g=255,b=255)
Return (((a) Shl 24) + ((r) Shl 16) + ((g) Shl 8) + (b))
End Function
вот такая функция возвращает argb для всяких WritePixel.
конечно фигня, но думаю зачем будущим поколениям прогерастов
изобретать мааленький такой велосипед.
по умолчанию возвращает белый цвет без альфы.