Sub Connect
Main.AppLog("Satel:: Connecting..."&IP&":3000 ")
If client.Connected = False Then
client.Initialize("client")
Try
client.Connect(IP, Port, 3000)
client.TimeOut = 10000
Catch
Main.AppLog("Satel:: Connection problem: "&LastException.Message)
End Try
End If
End Sub