Dim lbHamburger As BarButton = CreateFABarIcon(Chr(0xF0C9),"Left")
inParent.ToolbarButtons.Add(lbHamburger)
Public Sub CreateFABarIcon(text As String, tag As Object) As BarButton
Dim bb As BarButton
Dim b As Button
b.InitializeCustom("BarButton", Colors.White, Colors.RGB(16,116,74))
b.CustomLabel.Font = Font.CreateFontAwesome(32)
b.CustomLabel.TextAlignment = b.CustomLabel.ALIGNMENT_LEFT
b.Text = text
b.Tag = tag
b.SetLayoutAnimated(0, 1, 0, 0, 24, 24)
bb.InitializeCustom(b)
Return bb
End Sub