Sub ShowShadow(SM As SideMenuController, Show As Boolean)
Dim NaObj As NativeObject = SM
NaObj.SetField("showsShadow",Show)
End Sub
Sub CloseByClick(SM As SideMenuController)
Dim NaObj As NativeObject = SM
NaObj.SetField("closeDrawerGestureModeMask",96)
End Sub