Private Sub Form_Load()
    File1.Pattern = "*.txt"
    File2.Pattern = "*.lst"
 
    Dim myItem           As ListItem
 
    With ListView1
        .View = lvwReport
 
        .ColumnHeaders.Add , , "Druckername"
        .ColumnHeaders.Item(1).Width = 5000
        .ColumnHeaders.Add , , "Port"
 
        ' ------------------------------ Standarddrucker
        Label3.Caption = Printer.Port
 
        SelDrucker = Printer.DeviceName
        PrinterPort = Printer.Port
 
        Set myItem = ListView1.ListItems.Add(, Printer.DeviceName, _
          Printer.DeviceName)
        myItem.SubItems(1) = Printer.Port
 
        For Each p In Printers
            If p.DeviceName <> Printer.DeviceName Then
               Set myItem = ListView1.ListItems.Add(, p.DeviceName, _
                 p.DeviceName)
               myItem.SubItems(1) = p.Port
            End If
        Next p
    End With