Voila je voudrais creer un menu popup dynamique

J'arrive a le cree mais il ne s'affiche pas!!!



Comment faire voila ma source


Public Sub charge_menu_exte(tableau, nb)
Dim i As Integer

For i = 0 To nb - 1
If i <> 0 Then Load frm_main.m_list(i)
frm_main.m_list(i).Caption = tableau(i, 1)
frm_main.m_list(i).Visible = True
Next
End Sub

Public Sub decharge_menu_exte()
Dim i As Integer

For i = frm_main.m_list.Count - 1 To 1 Step -1
Unload frm_main.m_list(i)
Next
End Sub

Pour afficher je fais popupmenu m_exte qui est le menu contenant m_list mias rine ne s'affiche comment faire
Merci d'avance