Sub New(ByVal mLvw As ListView, _
                   Optional ByVal mHeaderText As String = Nothing)
 
        'Listview übergeben und Überschrift
        Lvw = mLvw
        FtLvw = Lvw.Font
 
        If Not String.IsNullOrEmpty(mHeaderText) Then
            HeaderText = mHeaderText
        End If
        PrnPreview.ShowIcon = False
    End Sub

Public Class clsListViewPrint
 
    Public Sub New(ByVal ListViewFiles As Windows.Forms.ListView, HeaderText As _
      String)
 
    End Sub
End Class