[VB6] Menu dei form

[tas]

Vai nell'editor di menu e crea un nuovo menu chiamato mnuLibero, imposta la proprietà Index = 0 e Visible = False. In pratica hai creato il primo elemento di un array di menu, a questo punto puoi fare una cosa tipo questa:

Private n As Integer

Private Sub Command1_Click()
    n = n + 1
    
    Load mnuLibero(n)
    With mnuLibero(n)
        .Visible = True
        .Caption = "Menu libero " & n
    End With
End Sub

Private Sub mnuLibero_Click(Index As Integer)
    MsgBox "Hai selezionato il menu " & Index
End Sub