RibbonBar Systembutton

Option Explicit

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_CLOSE As Long = &H10

Private mo_SysBtn As CommandBarControl ' Reference to the System Button control

Private Sub CommandBars1_InitCommandsPopup(ByVal CommandBar As XtremeCommandBars.ICommandBar)
   If CommandBar Is mo_SysBtn.CommandBar Then
      ' The system button is about to show its popup
      ' This should mean that it was clicked.
      
      PostMessage Me.hwnd, WM_CLOSE, 0, 0 ' Unload Me will crash the IDE! PostMessage is the safe way to close the app in the InitCommandsPopup
   End If
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      .EnableOffice2007Frame True
      .VisualTheme = xtpThemeRibbon
   
      With .AddRibbonBar("Ribbon")
         ' Create system button, and store a reference
         Set mo_SysBtn = .AddSystemButton
         
         .EnableFrameTheme
      End With
   End With
End Sub