'Static code module
Sub Process_Globals
Private fx As JFX
Private frm As Form
End Sub
Public Sub Buttons
Private OkEvent As String = "ButtonsOk"
Private CancelEvent As String = "ButtonsCancel"
'Dim frm As Form
frm.Initialize( "", 330, 160)
frm.Title = "Title"
frm.Resizable = False
Dim btOK As Button
btOK.Initialize( OkEvent)
btOK.Text = "OkButton"
Dim btCancel As Button
btCancel.Initialize( CancelEvent)
btCancel.Text = "CancelButton"
frm.RootPane.AddNode( btOK, 100, 110,100,30)
frm.RootPane.AddNode( btCancel, 220, 110, 100, 30)
frm.Show
End Sub
Private Sub ButtonsOk_Action
frm.Close
End Sub
Private Sub ButtonsCancel_Action
frm.Close
End Sub