Page1.TopLeftButtons = Array(ImageBarButton(LoadBitmap(File.DirAssets,"Test.png"),20,20,"BarButton1"))
Sub ImageBarButton(Image As Bitmap, Height As Float, Width As Float, EventName As String) As BarButton
Dim IV As ImageView
IV.Initialize(EventName)
IV.ContentMode = IV.MODE_FIT
IV.Bitmap = Image
IV.Height = Height
IV.Width = Width
Dim BB As BarButton
BB.InitializeCustom(IV)
Return BB
End Sub