Friend Sub ShowLeftSidebar(ByVal blShow As Boolean)
    'Prüfen, ob die Sidebar sichtbar gemacht werden soll...
    If blShow Then
      'falls ja, dann Sidebar(paLeftSidebar) sichtbar machen
      paLeftSidebar.Visible = True
    Else
      'andernfalls Sidebar unsichtbar machen.
      paLeftSidebar.Visible = False  'Hier tritt der Fehler auf
    End If
  End Sub