Private Sub cmdNadie_Click()
    If Not sckTCP.State = 7 Then Exit Sub
    SendUDP &H1, Chr(UDPcount) & Chr(1) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(0) & Chr(&H81) & Chr(&H4B) & Chr(&H6) & Chr(&H3D) & Chr(&H2) & Chr(0) & Chr(0)
    SendUDP &H9, Chr(UDPcount)
    SendUDP &H9, Chr(UDPcount) & Chr(SocketID) & syncData
    pPrint "*** Sent 09"
End Sub