Dim btm As Bitmap
btm.InitializeMutable(32dip,32dip)
Dim DestRect As Rect
DestRect.Initialize(0,0, 32dip,32dip)
Dim can As Canvas
can.Initialize2(btm)
Dim pm As PackageManager
can.DrawDrawable(pm.GetApplicationIcon(Application.PackageName),DestRect)
ToolbarHelper.Icon = Tools.BitmapToBitmapDrawable(btm)
'ToolbarHelper is declare as appcompat.ACActionBar in my case