Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private dob As JFXtrasDateTextField
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
dob.Initialize("dob")
MainForm.RootPane.AddNode(dob, 0, 0, 200, 100)
dob.DateTime = DateTime.DateParse("02/23/2007")
End Sub