info.CreateNoWindow = False

Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.io
Imports System.Threading 
'Die Imports
 
  Public stream As NetworkStream
    Public sr As StreamReader
 
 Private Function sendCommand(ByVal send As String) As String
        send += vbCrLf
        Dim data As [Byte]() = Encoding.ASCII.GetBytes(send)
        stream.Write(data, 0, data.Length)
        sr = New StreamReader(stream)
        Dim buffer As New StringBuilder
        Do While sr.Peek() > 0
            Thread.Sleep(100)
            buffer.Append(sr.ReadLine + vbCrLf)
        Loop
        Return buffer.ToString
    End Function
Dim info as String
       Dim server As String = "servername"
        Dim user As String = "benutername"
        Dim password As String = "passwort"
        Dim client As New TcpClient(server, 110)
        stream = client.GetStream()
        sr = New StreamReader(stream)
        info += sendCommand("?")
MSGBOX(info)
Hilft dass?

Ich nutze Visual Basic 2005 Express Edition auf W2KP und XP