Sub AppStart (Form1 As Form, Args() As String)
OutputWindow = Form1
OutputWindow.SetFormStyle("UNDECORATED")
OutputWindow.AlwaysOnTop = False
OutputWindow.RootPane.LoadLayout("Main") 'Load the layout file.
OutputWindow.WindowTop = 0
OutputWindow.WindowLeft = fx.PrimaryScreen.MaxX 'Position the output window on the second monitor.
'DakRTD.Initialize("COM1", "00000000", "004210", 622)
CallTimeout = False
Sleep(50)
StatPanel.Initialize
If UDPSocket1.IsInitialized = False Then UDPSocket1.Initialize("UDP", 1067, 8192) 'Use UDP sockets.
OutputWindow.Show
End Sub
Sub OutputWindow_CloseRequest (EventData As Event) <--Doesnt Work
Log("We are closing the program")
ExitApplication
End Sub