Pb affichage menu contextuel

Salut
Je cree un menu contextuel en dynamique mais il ne s'affiche pas!!!
Voila la procedure de chargement du menu et celle de dechargment

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

Ensuite pour afficher mon menu je fais :
popupmenu m_exte
m_exte est le menu contenant le sous-menu m_list
Aidez moi s'il vous plait
Merci