#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Public socket As Socket
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
Try
socket.Initialize("socket")
socket.Connect("localhost",6000,10000)
If socket.Connected = True Then
Log("Connected")
Else
Log("Not Connected")
End If
Catch
Log("Waiting to server")
End Try
End Sub