Sub FullScreen(Frm As Form)
Dim joForm As JavaObject = Frm
Dim joStage As JavaObject = joForm.GetField("stage")
joStage.RunMethod("setMaximized", Array(True))
End Sub
Sub FullScreen(Frm As Form)
Dim joForm As JavaObject = Frm
Dim joStage As JavaObject = joForm.GetField("stage")
joStage.RunMethod("setMaximized", Array(True))
End Sub