,
. "Method 'Activate' of object IVcommands failed. ", vcommand1.activate menu. E
Code:
Private Menu As Long

Private Sub Command1_Click()
 Vcommand1.Activate (Menu)
End Sub

Private Sub Command2_Click()
MsgBox "click"
End Sub

Private Sub Form_Load()
Dim command As String, Description As String, Category As String, Flags As Long, Action As String
Vcommand1.initialized = 1
Menu = Vcommand1.MenuCreate("My commands", "commands state", 1)
Vcommand1.Enabled = 1
Vcommand1.AddCommand Menu, 1, "click", "button click", "listen list", 0, ""
Vcommand1.AddCommand Menu, 1, "show", "show command", "listen list", 0, ""

End Sub



Private Sub Vcommand1_CommandRecognize(ByVal ID As Long, ByVal CmdName As String, ByVal Flags As Long, ByVal Action As String, ByVal NumLists As Long, ByVal ListValues As String, ByVal command As String)
Label1.Caption = "command"
Select Case UCase(command)
Case "click"
    Command2_Click
Case "show"
    MsgBox "The command is SHOW"
End Select
/