RibbonTabs.AllowMinimize = True
If RibbonTabs.Minimized = True Then
RibbonTabs.Minimized = False
e.Button.SmallImage = GetImage("Upcd.ico")
e.Button.ToolTip = "功能区最小化"
Else
RibbonTabs.Minimized = True
e.Button.SmallImage = GetImage("Downcd.ico")
e.Button.ToolTip = "功能区最大化"
End If