' Dichiarazione d'intenti ...
Public mn_1 As Menu
Public submn As Menu
Public sub_submn As Menu


Public Sub _new()

End

Public Sub Form_Open()
Dim i, j As Integer
Dim testo1, testo2 As String
' creazione dei vari menù e sub menù ...
mn_1 = New Menu(Me, False)
mn_1.Caption = "Operazioni"
' ciclo per la creazione ...
For i = 0 To 3
  Select Case i
    Case 0
      testo1 = "Documento"
    Case 1
      testo1 = "Salva"
    Case 2
      testo1 = "Stampa"
    Case 3
      testo1 = "Esci"          
  End Select
  With submn = New Menu(mn_1, False)
    .Caption = testo1
    .Name = testo1
  End With
  Object.Attach(submn, Me, "SubMn")
  If i = 0 Then
    For j = 0 To 1
      Select Case j
        Case 0
          testo2 = "Crea"
        Case 1
          testo2 = "Richiama"
      End Select
      With sub_submn = New Menu(submn, False)
        .Caption = testo2
        .Name = testo2
        '.Action = sub_submn.Name
      End With
      Object.Attach(sub_submn, submn, "SubSubMn")
    Next
  Endif
  If i = 2 Then
    For j = 0 To 1
      Select Case j
        Case 0
          testo2 = "Crea file Pdf"
        Case 1
          testo2 = "Direttamente"
      End Select
      With sub_submn = New Menu(submn, False)
        .Caption = testo2
        .Name = testo2
      End With   
      Object.Attach(sub_submn, submn, "SubSubMn")
    Next
  Endif
Next

End

Public Sub submn_Click()  

' Riscontriamo quale sotto-voce abbiamo scelto:
  Message.Info("Hai premuto il sotto-menu: " & Last.Name)
  If Last.Name = "Esci" Then
    Me.Close
  Endif
End

Public Sub sub_submn_Click()  

' Riscontriamo quale sotto-voce abbiamo scelto:
  Message.Info("Hai premuto il sotto-sotto-menu: ")
  
End