Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
End Sub
Sub MainForm_MouseClicked (EventData As MouseEvent)
Dim i As Int = "no number here..." 'this will raise an exception.
End Sub
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
LogError(StackTrace)
Return False
End Sub