Sub Socket1_Connected (Successful As Boolean)
If Successful = True Then
Log("Socket connected")
Main.TCP.Connected = -1 'tell the app we have a TCP server available
MsgAcked = True
WeAreConnected = True
' N.SetInfo("Network", "TCP Connected! ", Main) 'let them know it is connected
Astreams.Initialize(Socket1.InputStream, Socket1.OutputStream, "AStreams")
SendMsg(chnCommands,"MYID:~" & Main.version.SerialNo & "~" & Main.LicenseData.GroupCode & "~Version: " & Main.Version.NewVersion & "~" & _
Main.CS.FacilityID & " " & Main.licensedata.Addr1 & " " & Main.LicenseData.City & ", " & Main.LicenseData.state) 'let them know who we are
End If
End Sub