Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type
 
Private Declare Function IntersectRect Lib "user32" (lpDestRect As RECT, _
  lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
 
 
 
' Controls: 1 * Listbox
 
Dim R1 As RECT, R2 As RECT, R3 As RECT, C As Control
 
List1.Clear
With R1
  .Left = XPos1 ' X linke obere Ecke Rahmen
  .Top = YPos1 ' Y linke obere Ecke Rahmen
  .Right = XPos2 ' X rechte untere Ecke Rahmen
  .Bottom = YPos2 ' Y rechte untere Ecke Rahmen
End With
For Each C In Me.Controls
  If Not (TypeOf C Is Timer) Then
    If C.Visible = True Then
      With R2
        If TypeOf C Is Line Then
          .Left = IIf(C.X1 < C.X2, C.X1, C.X2)
          .Top = IIf(C.Y1 < C.Y2, C.Y1, C.Y2)
          .Right = IIf(C.X1 > C.X2, C.X1, C.X2)
          .Bottom = IIf(C.Y1 > C.Y2, C.Y1, C.Y2)
        Else
          .Left = C.Left
          .Top = C.Top
          .Right = .Left + C.Width
          .Bottom = .Top + C.Height
        End If
      End With
      If IntersectRect(R3, R1, R2) <> 0 Then List1.AddItem C.Name
    End If
  End If
Next C

Gruss,

Zardoz