When adding IME, a conflict occurs and stops working Sub NavDrawer_NavigationItemSelected, to replicate the failure click on homebutton of the Toolbar (the 3 line menu icon) and select one of the options, Event sub that handles the case if a navigation item is selected.
I added the solution proposed by @Erel works only in part.
IME is not responsible. Comment Dim Ime As IME and corresponding statements. NavDrawer_NavigationItemSelected does not work in this case also.
Meanwhile original sample works perfect.
Thanks @Erel by the recommendation, i created a sliding menu a similar example to NavDrawer, it is quite rudimentary but functional. i attach an example.