Toolbar - responding to menu selection

Private Sub  Toolbar1_ButtonMenuClick( ByVal ButtonMenu As MSComctlLib.ButtonMenu)

If ButtonMenu.Parent.Key = "game" Then
    'Do something
End If

If ButtonMenu.Parent.Key = "speed" Then
    'Do something else
End If

End Sub