Dim StdABHelper As StdActionBarHelper
Dim MMenu As MSMaterialMenu
StdABHelper.Initialize
MMenu.Initialize("MMenu")
MMenu.setScaleAndStroke(1,2)
MMenu.Color = Colors.Black
StdABHelper.Icon = MMenu.Drawable
Sub StdAB_ButtonClicked
If MMenu.State = "BURGER" Then
MMenu.animatePressedState("X")
NavDrawer.OpenDrawer
Else
MMenu.animatePressedState("BURGER")
NavDrawer.CloseDrawer
End If
End Sub