Private Sub WinSock_Close(Index As Integer)
    If Index = "0" Then
        stBar.SimpleText = "Status: Offline"
    Else
        stBar.SimpleText = "Status: Verbunden mit " & WinSock.Count - 1 & "" & _
          "Client(s)."
    End If
End Sub