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