Sub hide
Dim mf As JavaObject = frm.RootPane
mf.RunMethodJO("getScene",Null).RunMethodJO("getWindow",Null).RunMethod("hide",Null)
End Sub
Sub show
Dim mf As JavaObject = frm.RootPane
mf.RunMethodJO("getScene",Null).RunMethodJO("getWindow",Null).RunMethod("show",Null)
End Sub