Attribute VB_Name = "z_UIRibbon" Option Explicit Option Private Module Public Sub OnRibbonBtn(iControl As IRibbonControl) Select Case iControl.ID Case "GlobalConfig": Call RunGlobalConfig Case "GenerateWrapper": Call RunGenerateWrapper End Select End Sub