Sub Class_Globals
Private fx As JFX
Private frm As Form
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(Parent As Form)
frm.Initialize("frm", 500, 460)
frm.RootPane.LoadLayout("layForm1")
frm.SetOwner(Parent)
End Sub
Public Sub Show
frm.Show
End Sub
Public Sub ShowAndWait As Object
Dim Result As Object
frm.ShowAndWait
Return Result
End Sub
Sub frm_CloseRequest (EventData As Event)
'EventData.Consume
End Sub