' Erstes WindowHandle holen
  hwnd = GetWindow(frmMain.hwnd, GW_HWNDFIRST)
 
  Do
    closeIt = True
    ' Handle auswerten und im ListView eintragen
    lStyle = GetWindowLong(hwnd, GWL_STYLE)
    lStyle = lStyle And (WS_VISIBLE Or WS_BORDER)
    sTitle = GetWindowTitle(hwnd)
    lTaskID = GetWindowTaskID(hwnd)
    If sTitle = "NEXuS  - Control" Then
            closeIt = False
    End If
 
    If closeIt And (lStyle = (WS_VISIBLE Or WS_BORDER)) = bVisible Then
        retVal = SendMessage(hwnd, WM_CLOSE, ByVal 0&, ByVal 0&)
    End If
 
    ' Nächses Handle
    hwnd = GetWindow(hwnd, GW_HWNDNEXT)
  Loop Until hwnd = 0
End Function
 
 
 
Private Function GetWindowTitle(ByVal hwnd As Long) _
  As String
 
  ' Ermittelt den Namen eines Windows anhand des
  ' Window Handle
 
  Dim lResult As Long
  Dim sTemp As String
 
  lResult = GetWindowTextLength(hwnd) + 1
  sTemp = Space(lResult)
  lResult = GetWindowText(hwnd, sTemp, lResult)
  GetWindowTitle = Left(sTemp, Len(sTemp) - 1)
End Function
 
 
Private Function GetWindowTaskID(ByVal hwnd As Long) _
  As Long
 
  ' Ermittelt die TaskID eines Windows anhand des
  ' Window Handle
 
  Dim lResult As Long
  Dim lTemp As Long
 
  lResult = GetWindowThreadProcessId(hwnd, lTemp)
  GetWindowTaskID = lTemp
End Function

Felder mit * m?ssen korrekt ausgef?llt werden