how to Add sub menu at run time
like this
![Name: 11d.jpg
Views: 53
Size: 14.5 KB]()
---------------
I used this code but not solve the problem
this is rusult
![Name: 11e.jpg
Views: 50
Size: 11.2 KB]()
like this
---------------
I used this code but not solve the problem
Code:
Private Sub Command1_Click()
Dim i As Integer
i = 0
For i = 1 To 5
Load mnuex(i)
Load mnuez(i)
mnuex(i).Caption = i
Next i
End Sub