Italian Posizionamento menu diverso

#Region  Project Attributes
    #ApplicationLabel: B4A Material Example
    #VersionCode: 2
    #VersionName: 2.0
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim SAB As StdActionBar
    Private Spinner1 As Spinner
    Private Panel1 As Panel
    Private EditText1 As EditText
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    Activity.Title = "Material Design Example"

    SAB.Initialize("ActionBar")
    SAB.Subtitle = "Small Subtitle"

    Spinner1.AddAll(Array As String("Honeycomb", "Ice Cream Sandwich", "Jellybean", "KitKat", "Lollipop"))

    'Add some Menu Items
    Activity.AddMenuItem3("mira", "", Null, True)
    Activity.AddMenuItem3("Action", "", Null, True)
    Activity.AddMenuItem("Overflow 1", "")
    Activity.AddMenuItem("Overflow 2", "")
    Activity.AddMenuItem("Overflow 3", "")


Activity.AddMenuItem("Open File", "OpenFile")


    Panel1.BringToFront
End Sub

Sub Activity_Resume

End Sub


Sub OpenFile_Click
    Msgbox ("ciao","ciao")
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub