Creare Menu a finestra con MenuButton

Di seguito mostriamo un semplice esempio, nel quale viene creato un Menu associato ad un oggetto MenuButton.

Public Sub Form_Open()
 
 Dim MenuButton1 As MenuButton
 Dim mn As Menu
 Dim campomenu As Menu
 Dim b As Byte
 Dim testo As String[] = ["aaa", "bbb", "ccc"]
 
  With MenuButton1 = New MenuButton(Me)
    .X = 100
    .Y = 100
    .Width = 40
    .Height = 30
' Associa il MenuButton al Menu (il testo deve essere identico al nome del Gruppo attribuito al Menu)
    .Menu = "Menu"
  End With
  
' Crea il Menu:
  mn = New Menu(Me) As "Menu"
  
' Crea alcuni campi del menu:
  For b = 0 To testo.Max
    campomenu = New Menu(mn) As "Campo"
' Assegna un testo ai campi del Menu:
    campomenu.Text = testo[CStr(b)]
  Next
  
End


Public Sub Campo_Click()
 
  Print Last.text
  
End