Try
   Dim t As New Net.Sockets.TcpClient()
   Dim iar As IAsyncResult = t.BeginConnect("logoneternnights.d", 8078, _
     Nothing, Nothing)
   res = iar.AsyncWaitHandle.WaitOne(5000, Nothing) ' 5 Sekunden
Catch ex As Exception
   Debug.WriteLine("Server Host nicht erreichbar")
End Try
 
If res = True Then
   Label1.Text = "Logon Server online"
Else
   Label1.Text = "Logon Server offline"
End If