Hidpi Problem mit Mask

Sobald ich Hidpi aktiviere spinnt meine PictureButton-Klasse
Das ist ein Canvas und sobald ich mit der Maus drauf klicke wird das Icon in dunkler drüber gelegt um den Klick anzuzeigen.
Das problem ist also nach “If down and…”
Funktioniert nicht mehr mit Hidpi, da erscheint dort nur noch ein dunkler Balken.

Hat hier jemand einen Lösungsansatz… ??

[code]dim p as new Picture(152,140,32)
dim standbyPic as Picture
dim map(255) as Integer
for i as integer =0 to 255
map(i)=i/1.8
next

g.DrawPicture (Artikel152,0,0,g.Width, g.Height, 0, 0, Artikel152.Width, Artikel152.Height)

if down and button=index then

standbyPic=new picture(152,140,32)
standbyPic.mask.graphics.forecolor=rgb(255,255,255)
standbyPic.mask.graphics.fillrect(0,0,width,height)
standbyPic.mask.graphics.drawpicture(Artikel152.Mask,0,0)
standbyPic.graphics.drawpicture(Artikel152,0,0)

p=standbyPic
p.rgBSurface.transform map
g.DrawPicture (p,0,0,g.Width, g.Height, 0, 0, Artikel152.Width, Artikel152.Height)
icon_timer.mode=1

end if[/code]

ich mache es so

myicon= new Picture(100,40,32)
myicon.Transparent=1
myicon.Graphics.DrawPicture meinlassoblau,50,0,45,40,0,0,meinlassoblau.Width,meinlassoblau.height
kurz.RowPicture(4) =myicon

meinassoblau hat einen Alphakanal = transparent

standbyPic.mask.graphics. ist verboten
erstelle für eine Maske ein neues Bild

iconmaske = icon.mask
iconmaske.graphics.forecolor = HSV(0,0,1) // für transparent
iconmaske.graphics.filloval(b/2,h/2,20,20)

ich habe eine Listbox zur Anzeige der Bilder
kurz.RowPicture(4) =myicon

Vielen Dank, passt!