'set the background colour and add an arrow on the right
Sub setSpinnerBackground(spinnerArg As Spinner, colorArg As Int)
dim const ICON_SIZE as int = 48dip
Dim tempBitmap As Bitmap
tempBitmap.InitializeMutable(spinnerArg.width, ICON_SIZE)
Dim tempCanvas As Canvas
tempCanvas.Initialize2(tempBitmap)
tempCanvas.DrawColor(colorArg)
tempCanvas.DrawText(Chr(0xE5C5), spinnerArg.width - ICON_SIZE/2, ICON_SIZE/1.3, Typeface.MATERIALICONS, 20, colors.black, "CENTER")
Dim bmd As BitmapDrawable
bmd.Initialize(tempBitmap)
spinnerArg.Background = bmd
End Sub