Dim doc As Geosi60Doc
    Dim lin As Geosi60Line
    Dim lines As Geosi60Lines
    Dim objLines As Object
 
 
    'Wenn kein Projekt verfügbar, dann Funktion beenden
    If Not ExistGeosiProjekts Then Exit Sub
 
    lstDocLines.Clear  'Übergabe an eine Listbox
 
    On Error GoTo ErrExit
 
    Dim item As String
    item = lstDocs.List(lstDocs.ListIndex)
    Set doc = GeoDocs.item(item)
 
    Set lines = doc.lines
 
    Set objLines = lines.GetLineList
 
    For Each lin In objLines
        lstDocLines.AddItem lin.Name
    Next lin

Visual Basic 6.0 Grundkenntnisse und ansonsten alles rund um AutoCAD