Dim SystemI As ArrayList = ribbonControl1.RibbonStrip.GetItems("", GetType(SystemCaptionItem))
Dim item As SystemCaptionItem
For Each item In systemI
If Not item.IsSystemIcon Then
item.Visible = False
End If
Next


Dim SystemI As ArrayList = ribbonControl1.RibbonStrip.GetItems("", GetType(SystemCaptionItem))
Dim item As SystemCaptionItem
For Each item In systemI -1
If Not item.IsSystemIcon Then
item.Visible = False
End If
Next