Sub btn_Snapshot_Action
Dim c As Canvas
c.Initialize("")
c.Width=Balloons.Width/2 : c.Height=Balloons.Height/2
c.Style="-fx-background-color: transparent"
c.DrawRect(0,0,c.Width,c.Height,fx.Colors.Transparent,True,0)
c.DrawImage(Balloons,0,0,Balloons.Width/2,Balloons.Height/2)
' Dim img As Image = c.Snapshot
' can2.DrawImage(checkeredImage,0,0,pane1.PrefWidth,pane1.PrefHeight)
' can2.DrawImage(img,20,20,img.Width,img.Height)
Dim g As JavaObject
g.InitializeNewInstance("javafx.scene.SnapshotParameters",Null) ' javaobject
Dim p As Paint = fx.Colors.Transparent
g.RunMethod("setFill",Array As Object(p))
Dim jot As JavaObject
jot = c ' contains png with trans background
Dim im As Image
im = jot.RunMethod("snapshot",Array As Object(g,Null)) ' im = Image
Log("wdth: "& im.Width & "ht: "& im.Height)
can2.DrawImage(im,0,0,im.Width/2,im.Height/2) ' canvas1 = canvas
End Sub