event Click ()
Occurs when the user clicks the button.

TypeDescription

The Click event is fired when the user clicks the button. 

The following sample changes the button's caption when user selects a new item:

Private Sub MenuButton1_Click()
    With MenuButton1
        .Caption = PopupMenu1(.LastID).Caption
    End With
End Sub