Sub ImageGetter_GetDrawable(Source As String) As Object
If File.Exists(File.DirAssets, Source) Then
Dim Bitmap1 As Bitmap
Bitmap1=LoadBitmap(File.DirAssets, Source)
Bitmap1=ResizeBitmap(Bitmap1, 24dip, 24dip)
Dim BitmapDrawable1 As BitmapDrawable
BitmapDrawable1.Initialize(Bitmap1)
LabelExtras1.SetDrawableBounds(BitmapDrawable1, 0, 0, Bitmap1.Width, Bitmap1.Height)
Return BitmapDrawable1
Else
' the default placeholder image will be used if Null is returned by this Sub
Return Null
End If
End Sub