Private Cvx As CanvasExt
Private Cv As Canvas
Dim ip As JavaObject
Dim im As Image = fx.LoadImage(File.DirAssets, "conic-gradient-full-example.png")
ip.InitializeNewInstance("javafx.scene.paint.ImagePattern", Array(im, 0.0, 0.0, 400.0, 400.0, False))
Cvx.Initialize(Cv)
Cvx.SetLineCap("ROUND")
Cvx.DrawArc2(200, 200, 160, 90, -225, "OPEN", ip, False, 40)