Private Sub sevTray_Click(Button As Integer)
 If Button = 2 Then PopupMenu mnuServer
End Sub
 
Private Sub mnuStartServer_Click()
 With sevTray
  .AnimationSpeed = 500
  .IconStyle = sevMultipleIcons
  .ShowInTray
 End With
 
 WinSock(0).Listen  ' Port wird von Windows zugewiesen
 Protokoll "Ereignis: Server getartet"
 Protokoll vbTab & "Lokaler Port: " & WinSock(0).LocalPort
 cmdStartServer.Enabled = False: mnuStartServer.Enabled = False
 cmdStopServer.Enabled = True: mnuStopServer.Enabled = True
 
End Sub
 
Private Sub Protokoll(Text As String)
 lstProtokoll.AddItem Text
End Sub