Sub Activity_CreateMenu(Menu As ACMenu)
SearchBar.Initialize2("Search", SearchBar.THEME_DARK)
SearchBar.QueryHint = "Search for stores"
SearchBar.IconifiedByDefault = True
'
Dim r As Reflector
r.Target = SearchBar
r.Target = r.GetField("mSearchView")
r.RunMethod4("setMaxWidth", Array As Object(Activity.Width), Array As String("java.lang.int"))
Menu.Clear
Menu.Add(0,0,"Search",FontToBitmap(Chr(0xE8B6),True,35,Colors.White)).ShowAsAction = MenuItemHelper.SHOW_AS_ACTION_ALWAYS
Menu.GetItem(0).SearchView = SearchBar
End Sub