Case "next"
                        TcpSend("http://user:pass@192.168.0.20:7999/next")
 
 
                End Select
        End Select
    End Sub
    Private Function TcpSend(ByVal url As String) As String
        Dim wc As New System.Net.WebClient
        Dim res As String = System.Text.Encoding.UTF8.GetString(wc.DownloadData( _
          url))
        wc.Dispose()
        Return res
    End Function