Public Sub Seitenanzeige_anpassen(ByVal fn As Object)
        If fn <> "" Then
 
            Try
 
                Dim Breite_PBox As Integer
                Dim Höhe_PBox As Integer
 
                Select Case My.Settings.Anzeige_Seiten
                    Case 1
                        fn.Btn_Anzeige_Seiten.BackgroundImage = _
                          My.Resources.Eine_Seite
                        fn.PBox_Anzeige_Seite2.Visible = False
                        ' PBox_Anzeige_Seite1.Dock = DockStyle.Fill
                        Breite_PBox = (fn.SplitContainer1.Panel2.Width) ' 20 
                        ' ist der Rand den man mindestens haben will 
                        Höhe_PBox = fn.SplitContainer1.Panel2.Height - _
                          fn.Panel_Seitenanzeige_Navigation.Height ' Die Höhe 
                        ' des Panels
                        fn.PBox_Anzeige_Seite1.Left = 10
                        fn.PBox_Anzeige_Seite1.Top = 10
                        fn.PBox_Anzeige_Seite1.Width = Breite_PBox - 20
                        fn.PBox_Anzeige_Seite1.Height = Höhe_PBox - 20
                    Case 2
                        If InStr(fn.TBox_Anzeige_Seiten.Text, "/ 001") = 0 Then
                            fn.Btn_Anzeige_Seiten.BackgroundImage = _
                              My.Resources.Zwei_Seiten
                            fn.PBox_Anzeige_Seite1.Dock = DockStyle.None
                            fn.PBox_Anzeige_Seite2.Visible = True
 
                            Breite_PBox = (fn.SplitContainer1.Panel2.Width - _
                              40) / 2 ' 20 ist der Rand den man mindestens 
                            ' haben will 
                            Höhe_PBox = fn.SplitContainer1.Panel2.Height - _
                              fn.Panel_Seitenanzeige_Navigation.Height ' Die 
                            ' Höhe des Panels
                            fn.PBox_Anzeige_Seite1.Left = 10
                            fn.PBox_Anzeige_Seite1.Top = 0
                            fn.PBox_Anzeige_Seite1.Width = Breite_PBox
                            fn.PBox_Anzeige_Seite1.Height = Höhe_PBox
 
                            fn.PBox_Anzeige_Seite2.Left = _
                              fn.PBox_Anzeige_Seite1.Left + 20 + _
                              fn.PBox_Anzeige_Seite1.Width
                            fn.PBox_Anzeige_Seite2.Top = 0
                            fn.PBox_Anzeige_Seite2.Width = Breite_PBox
                            fn.PBox_Anzeige_Seite2.Height = Höhe_PBox
                        Else
                            fn.Btn_Anzeige_Seiten.BackgroundImage = _
                              My.Resources.Eine_Seite
                            fn.PBox_Anzeige_Seite2.Visible = False
                            fn.PBox_Anzeige_Seite1.Dock = DockStyle.Fill
                            My.Settings.Anzeige_Seiten = 1
                            My.Settings.Save()
                        End If
                End Select
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
 
    End Sub