DirectCast(selectedHeader.Controls("btn_" & controlName & "Collapsed"), _
    ComponentFactory.Krypton.Toolkit.ButtonSpecHeaderGroup).type = _
    PaletteButtonSpecStyle.ArrowUp

Private Sub headers_CollapsedChanged(sender As Object, e As EventArgs) Handles _
  hea_fileExplorer.CollapsedChanged, hea_ramCpu.CollapsedChanged, _
  hea_quote.CollapsedChanged, hea_serverControl.CollapsedChanged, _
  hea_shortcuts.CollapsedChanged, hea_vePro.CollapsedChanged
        Dim selectedHeader As KryptonHeaderGroup = DirectCast(sender, _
        KryptonHeaderGroup)
        Dim state As Boolean
        Dim controlName As String = selectedHeader.Name.Remove(0, 4)
 
        If selectedHeader.Collapsed = True Then
            state = True
            DirectCast(selectedHeader.Controls("btn_" & controlName & _
              "Collapsed"), _
              ComponentFactory.Krypton.Toolkit.ButtonSpecHeaderGroup).type = _
              PaletteButtonSpecStyle.ArrowUp
            btn_serverControlCollapse.Type = PaletteButtonSpecStyle.ArrowUp
        Else
            state = False
        End If
 
        EinstellungenReader.Write("widgetLocations", controlName & "Collapsed", _
          state)
    End Sub