Dim locSeite As New clsSeite(Me.PageSettings)

Dim locSettings As Object = Me.PageSettings
Dim locSeite As New clsSeite(locSettings)

Private mPageSettings As Printing.PageSettings

Public Sub New(ByVal PageSettings As Printing.PageSettings)
    Me.mPageSettings = PageSettings
 
    .
    .
    .
End Sub

Public Property PageSettings()
    Get
        Return mPageSettings
    End Get
    Set(ByVal value)
        Me.mPageSettings = value
        Me.Seiten.Clear()
        RaiseEvent AnordnungZurückgesetzt(Me, New System.EventArgs)
    End Set
End Property