' Dichiariamo il Menu principale:  
Private mn As Menu    
          
     
Public Sub Form_Open()  
 
' Dichiariamo anche le sotto-voci del Menu:    
 Dim mn1 As Menu  
 Dim mn2 As Menu  
 Dim mn3 As Menu  
 Dim mn4 As Menu  
     
' impostiamo il Menu principale, impostando come "contenitore" il Form:
   mn = New Menu(Me)  
     
' gli diamo il testo che sarà mostrato:
   mn.Caption = "File"  
     
' attribuiamo al Menu principale le sue sotto-voci,
' alle quali diamo il testo che sarà mostrato,
' e come "contenitore" il Menu principale:
   mn1 = New Menu(mn, False)
    With mn1
' Facciamo mostrare la denominazione della sotto-voce mediante ".Caption":
     .Caption = "Nuovo"
     .Name = "Nuovo"
    End With

   mn2 = New Menu(mn, False)
    With mn2
     .Caption = "Apri"
     .Name = "Apri"
    End With

   mn3 = New Menu(mn, False)
    With mn3
     .Caption = "Salva con nome..."
     .Name = "Salva con nome..."
    End With

   mn4 = New Menu(mn, False)
    With mn4
     .Caption = "Esci"
     .Name = "Esci"
    End With
     
End


Public Sub mn1_Click()  


    Print "funziona"
   ' qui fa qualcosa...
 
End

#include <iostream>
#include <stdlib.h>
using namespace std;

int main()
{
    system("sudo ./arduino/arduino");

}

Public Sub Main()

Desktop.RunAsRoot("sudo ./arduino/arduino") 

End