når en bruger logger ud, så

hvordan laver jeg sådan når en bruger har lukket "clienten"'s vindue, så åbner den:
      MsgBox "lukket ud"
???



Option Explicit

Private Sub Form_Load()
  With sckListen
      .Protocol = sckTCPProtocol
      .LocalPort = 9999
      .Listen
  End With
End Sub

Private Sub sckListen_ConnectionRequest(ByVal RequestID As Long)
  If IsRequestID(RequestID) = False Then
    Call Load(sckServer(RequestID))
    Call sckServer(RequestID).Accept(RequestID)
  End If
End Sub

Private Function IsRequestID(ByVal RequestID As Long) As Boolean
Dim objServer As Object
  For Each objServer In sckServer
    If objServer.Index = RequestID Then
      IsRequestID = True
      Exit For
    End If
  Next
End Function

Private Sub sckServer_Close(Index As Integer)
  If Not Index = 0 Then
    With sckServer(Index)
        .Close
          Do Until .State = sckClosed
            DoEvents
          Loop
        Unload sckServer(Index)
    End With
  End If
End Sub

Private Sub sckServer_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim strData As String
Dim objServer As Object
Dim kommando() As String
Dim k() As String
Dim saadan As String
  Call sckServer(Index).GetData(strData, vbString, bytesTotal)

  For Each objServer In sckServer
    If objServer.State = sckConnected Then
 
        Call objServer.SendData(CStr(strData & vbCrLf))
        DoEvents
       
    End If
     

   
  Next
End Sub

Private Sub timConnect_Timer()
Dim intCount As Integer
  intCount = (sckServer.Count - 1)
  Me.Caption = "Online på client: - (" & intCount & ")"
End Sub