Android Question Activity_CreateMenu And Translation

   dim strMenuItemTitle as string = "Menu Title 1"
    Menu.Add(0, 0, strMenuItemTitle , Null)

    Menu.Add(0, 0, "Menu Title 1", Null)

  Dim charSequences As CSBuilder
  charSequences.Initialize
  menu.Clear
  menu.Add(1, 0, charSequences.Append(Module.arrCategoriesPanel(0)), Null)

#IgnoreWarnings: 11
Sub Activity_CreateMenu(menu As ACMenu)  
   Dim dummy As CSBuilder
   dummy.Initialize

   Dim cs() As CSBuilder = Array As CSBuilder(dummy)
   cs(0).Initialize.Append(Module.arrCategoriesPanel(0))  

   menu.Clear  
   menu.Add(1, 0, cs(0), Null)
End Sub

 Dim cs As CSBuilder ' Global var....
menu.add(cs.Initialize.Append(Module.arrCategoriesPanel(0)).PopAll, null)

#IgnoreWarnings: 11
Sub Activity_CreateMenu(menu As ACMenu)
      dim strText as String
      strText = "I am a simple text message, please work!!!"
      menu.Clear
      menu.add(1, 0, cs.Initialize.Append(strText).PopAll, Null)
End sub

#IgnoreWarnings: 11
Sub Activity_CreateMenu(menuAs ACMenu)
     menu.Clearmenu.add(1, 0, ""I am a simple text message, please work!!!", Null)
End sub

#If Java

public boolean _onCreateOptionsMenu(android.view.Menu menu) {
    if (processBA.subExists("activity_createmenu")) {
        processBA.raiseEvent2(null, true, "activity_createmenu", false, new de.amberhome.objects.appcompat.ACMenuWrapper(menu));
        return true;
    }
    else
        return false;
}
#End If

#IgnoreWarnings: 11
Sub Activity_CreateMenu(Menu As ACMenu)
    Menu.Clear
    Dim item As ACMenuItem
    ' Add Create folder item - number < 100 so it's never removed.
    Menu.Add2(10, 1, moResStrings.Get(sRES_TOOLBAR_CREATEFOLDER), modUtility.GetDrawable("ic_folder_add_black_24dp", moIcons)).ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
    ' Add other menu items (under a More button)
    UpdateMenu(Menu, True)
End Sub

private Sub UpdateDisplay
    Dim oMenuItem As ACMenuItem
    ' Clear existing dynamic items (if any)
    If barAction.Menu.Size > 0 Then
        oMenuItem = barAction.Menu.GetItem(barAction.Menu.Size - 1)
        Do While oMenuItem.Id >= 100
            barAction.Menu.RemoveItem(oMenuItem.Id)
            oMenuItem = barAction.Menu.GetItem(barAction.Menu.Size - 1)
        Loop
    End If
    ' Setup toolbar and menu items depending on whether we're showing root folder or a sub folder
    If goStorage.sCurrentFolder = goStorage.sRootFolder Then
        barHelper.ShowUpIndicator = False
        barAction.Title = Application.LabelName
        barAction.SubTitle = ""
        UpdateMenu(barAction.Menu, True)
    Else
        barHelper.ShowUpIndicator = True  
        barAction.Title = goStorage.sCurrentFolderName
        barAction.SubTitle = goStorage.sCurrentFolderWorkouts
        UpdateMenu(barAction.Menu, False)
    End If
End Sub

private Sub UpdateMenu(Menu As ACMenu, bRoot As Boolean)
    Dim iMenu As Int = 100
    If bRoot Then
        For Each sItem As String In Array As String(moResStrings.Get(sRES_TOOLBAR_SETTINGS), _
                                                    moResStrings.Get(sRES_TOOLBAR_EXAMPLES), _
                                                    moResStrings.Get(sRES_TOOLBAR_HELP), _
                                                    moResStrings.Get(sRES_TOOLBAR_PURCHASE))
            Menu.Add(iMenu, iMenu, sItem, Null)
            iMenu = iMenu + 1
        Next
    Else
        For Each sItem As String In Array As String(moResStrings.Get(sRES_TOOLBAR_FOLDERRENAME), _
                                                    moResStrings.Get(sRES_TOOLBAR_FOLDERMOVE), _
                                                    moResStrings.Get(sRES_TOOLBAR_FOLDERCOPY), _
                                                    moResStrings.Get(sRES_TOOLBAR_FOLDERDELETE), _
                                                    moResStrings.Get(sRES_TOOLBAR_FOLDERSORTBY))
            Menu.Add(iMenu, iMenu, sItem, Null)
            iMenu = iMenu + 1
        Next
    End If
End Sub

Private acMenuPopup As ACPopupMenu

#IgnoreWarnings: 11
Sub Activity_CreateMenu(menu As ACMenu)  
   Dim item As ACMenuItem
   acActionBarLight.Menu.Add2(1,1,"show", xml.GetDrawable("ic_settings_24dp")).ShowAsAction = item.SHOW_AS_ACTION_ALWAYS
End Sub

Sub refreshMenu
   acMenuPopup.Initialize("acMenuPopup", dummypanel)  
   acMenuPopup.AddMenuItem(1,Module.arrCategoriesPanel(0),Null)
   acMenuPopup.AddMenuItem(2,Module.MenuTranslate(1),Null)
   acMenuPopup.AddMenuItem(3,Module.MenuTranslate(2),Null)
End Sub

Sub acMenuPopup_ItemClicked (item As ACMenuItem)
   Select item.Id
     Case 1
       StartActivity("settings")
     Case 2
       StartActivity("backup")
     Case 3
       StartActivity("about")
   End Select
End Sub

Sub hideMainMenu
   acActionBarLight.Menu.Clear
End Sub

Sub acActionBarLight_MenuItemClick (Item As ACMenuItem)
   Select Case Item.Id
     Case 1
       acMenuPopup.Show
   End Select
End Sub