Private Shared sck As Socket
    Private Shared buf(40) As Byte
    Private Shared ar As IAsyncResult
    Private Shared Bytes As Integer
    Private Shared run As Boolean = True
 
    Private Sub StopServer()
      run = False
    End Sub  

 
    Private Function SERVER(ByVal msg As String)
        'Dim msg As String = "hello world!"
        Connect()
        While run
            SendMessageToSubnet(msg)
        End While
        sck.Close()
    End Function