'formunuza menuyu ekleyin kodları yapıştırın ve aşağıda soylediklerimi yapın
' DEĞİŞKENİMİZİ TANIMLAYALIM BUNU SAYAC OLARAK KULLANACAĞIZ
Dim flag As Integer
'2 ADET BUTTON KULLANACAĞIZ
'1. ADDCLICK
'2. REMOVECLICK

Private Sub ADDCLICK_Click()
If flag = 0 Then
REMOVECLICK.Enabled = True
mnusep(0).Visible = True
flag = flag + 1
Load mnusep(flag) 'MENU YU YUKLE
mnusep(flag).Enabled = True
mnusep(flag).Visible = True
mnusep(flag).Caption = "Click : " & flag 'İSİM VER
Else
Load mnusep(flag)
mnusep(flag).Enabled = True
mnusep(flag).Visible = True
mnusep(flag).Caption = "Click : " & flag
End If
flag = flag + 1
End Sub

Private Sub REMOVECLICK_Click()
If flag = 1 Then
mnusep(0).Visible = False
REMOVECLICK.Enabled = False
Else
Unload mnusep(flag - 1)
End If
flag = flag - 1
End Sub


Private Sub Form_Load() 'EĞER MENU DE EKLENMİŞ HERHANGİ BİŞİ YOKSA FALSE
REMOVECLICK.Enabled = False
End Sub
__________________