When I run your example code on my main monitor, clicking and holding the mouse and moving it to the left (like you would if you wanted to select some text in a text box for example) is OK. The drawer does not pop out. See this image:
When I move it to my second monitor and repeat the test, the drawer immediately pops out. See image:
Also, as you already noted, the drawer does not pop back at all.
However, I have implemented a workaround by ignoring the mouse move. My workaround code is:
Dim filter = NavigationDrawer1.[GetType]().GetField("filter", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
Dim navigationDrawerMouseMessageFilter As NavigationDrawerMouseMessageFilter = filter.GetValue(NavigationDrawer1)
Dim MouseMessageFilter As NavigationDrawerMouseMessageFilter = navigationDrawerMouseMessageFilter
Application.RemoveMessageFilter(MouseMessageFilter)
Thank you for your help.
Nigel.