Private Sub PointSelectionFunktion(blnSelStatus As Boolean)
    Dim iIndex As Long
 
    With lstDocPoints
        For iIndex = 0 To .ListCount - 1
            .Selected(iIndex) = blnSelStatus
        Next iIndex
    End With
End Sub

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD