' Das Programm, soll alle Fenster schliessen
      lHandle = FindWindow("Shell_TrayWnd", vbNullString)
      Call PostMessage(lHandle, WM_COMMAND, MIN_ALL, 0&)
 
      ' Finde die Selektierte Spalte und Speichere den Handle
      ' in SelectedHandle
      Do Until x = (List1(0).ListCount)
         If List1(1).Selected(x) Then
            SelectedHandle = List1(0).List(x)
         End If
         x = x + 1
       Loop
 
     ' HIER IST DAS PROBLEM
     ' ------------------------------------------------------
      SetWindowPos SelectedHandle, HWND_TOP, xpos.Text, ypos.Text, _
        winwidth.Text, winheight.Text, SWP_FRAMECHANGED Or SWP_SHOWWINDOW
 
     ' Nachdem alle Fenster Minimiert wurden, soll das eine Fenster welches
     ' ausgewählt wurde wieder angezeigt werden
     ' Leider tut er das nicht...
     ' ------------------------------------------------------
 
     '  Wenn mein Fenster nicht das ausgewählte ist, soll es sich auch auf in 
     ' die
     ' Taskbar machen
      If SelectedHandle <> Me.hwnd Then
         ShowWindow Me.hwnd, vbMinimizedNoFocus
      End If
 
      'CaptureScreen ist eine Funktion, welche mir einen Screenshot eines 
      'Fensters erstellt. Übergabeparameter ist der Fensterhandle.
     CaptureScreen SelectedHandle