Sub Class_Globals
Private fx As JFX
Private IconHeight, IconWidth As Int = 40
Private IconLeft, IconTop As Int = 100
Private xIcon() As ImageView
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
End Sub
public Sub CreateIcon
xIcon(0).Initialize("")
xIcon(0).Left = 100
xIcon(0).Top = 100
xIcon(0).Height = IconHeight
xIcon(0).Width = IconWidth
Main.MainForm.RootPane.AddNode(xIcon(0), 100,100,40,40)
xIcon(0).SetImage(fx.LoadImage(File.DirAssets,"img.png"))
xIcon(0).Visible = True
End Sub