GraphicsWindow.Width=800

GraphicsWindow.Height=600

GraphicsWindow.CanResize="false"

GraphicsWindow.BackgroundColor="white"

GraphicsWindow.MouseMove = OnMouseMove

mo = ImageList.LoadImage(Program.Directory + "\mo2.png")

GraphicsWindow.DrawImage(mo,0,0)

megye["BDDD78"]="Bács-Kiskun"

megye["A6C3FF"]="Békés"

megye["FFCC66"]="Baranya"

megye["CCCCFE"]="Borsod-Abaúj-Zemplén"

megye["FF5959"]="Budapest"

megye["FFB7DC"]="Csongrád"

megye["FEC2FF"]="Fejér"

megye["D1FDFD"]="Győr-Moson-Sopron"

megye["FECCCB"]="Hajdú-Bihar"

megye["99CCCD"]="Heves"

megye["FFA281"]="Jász-Nagykun-Szolnok"

megye["66CC9C"]="Komárom-Esztergom"

megye["FEAEAD"]="Nógrád"

megye["FFE085"]="Pest"

megye["99FFCC"]="Somogy"

megye["66CDCC"]="Szabolcs-Szatmár-Bereg"

megye["CB99CC"]="Tolna"

megye["9ACC99"]="Vas"

megye["D0D0D0"]="Veszprém"

megye["CC9866"]="Zala"

Sub OnMouseMove

  szin=Text.GetSubText(GraphicsWindow.GetPixel(GraphicsWindow.MouseX,GraphicsWindow.MouseY),2,6)   

  GraphicsWindow.Title =megye[szin]

EndSub