dinamicamente eu nunca criei não... mas o q uso fazer é criar o menu completo  e habilitar e/ou tornar visiveis os q quero q apareçam

 

1. Crie no Menu Editor, um nivel e subnivel, sendo o subnivel vc tem que colocar o index o numero 0.

2. Coloque essa sub no seu form.

 

Private Sub SetupEstoque()
   Dim i As Long
   For i = 1 To 3 'NUMERO DE SUB ITENS QUE EU QUERO CRIAR.
      Load mnuEst(i)
   Next i
   mnuEst(0).Visible = False  'DEIXANDO O QUE FOI CRIADO PRIMEIRO COMO INVISIVEL
   mnuEst(1).Caption = "Por Loja Todas..." 
   mnuEst(2).Caption = "Por Fornecedor..."
   mnuEst(3).Caption = "Histórico Fornecedor..."
        
End Sub

3. Chame a sub no evento Load por exemplo.

 

4. Esse é o evento Click do Submenu

 

Private Sub mnuEst_Click(Index As Integer)

    Select Case Index
        Case 1
            mnuEst(1).Enabled = False
            'load frmConEstL
            'frmConEstL.Show
        Case 2
            mnuEst(2).Enabled = False
            Load frmConLFor
            frmConLFor.Show
         Case 3
            mnuEst(3).Enabled = False
            Load frmConHistF
            frmConHistF.Show
    End Select

End Sub

 

Boa Sorte,

 

Roberto