Sub [COLOR="DarkRed"]RibbonButtonClick[/COLOR](irc as IRibbonControl)
Select Case ird.id
Case "[COLOR="Blue"]btnHideFormA[/COLOR]"
If CurrentProject.AllForms("FormA").IsLoaded Then Forms("FormA").Visible = False
Case Else
[COLOR="Green"]'...[/COLOR]
End Select
End Sub