TaskCount = 0
ReDim TaskInfos(0)
hWnd = GetWindow(Frm.hWnd, GW_HWNDFIRST)
 
Do
    TaskCount = TaskCount + 1
    ReDim Preserve TaskInfos(TaskCount)
 
    ' Informationen einholen
    TaskInfos(TaskCount).TaskID = GetWindowTaskID(hWnd)
    TaskInfos(TaskCount).TaskTitle = GetWindowTitle(hWnd)
    TaskInfos(TaskCount).TaskHandle = hWnd
    TaskInfos(TaskCount).TaskExeName = GetExeName(hWnd)
 
    ' Nächses Handle
    hWnd = GetWindow(hWnd, GW_HWNDNEXT)
Loop Until hWnd = 0