Sub Connetti(ip As String, porta As String)
Dim port As Int
If socket_v.IsInitialized = False Then socket_v.Initialize("socketvar")
If IsNumber(porta) Then port = porta
socket_v.Connect(ip, port, 5000)
End Sub
Sub socketvar_Connected (Successful As Boolean)
Try
If Successful = False Then
ToastShow("Errore connessione", 2)
If socket_v.Connected = True Then socket_v.Close
socket_v.Initialize("socketvar")
connesso = False
Return
End If
...........
...........