Sub setButtonImage(Btn As Button,Img As BitmapDrawable)
Dim R As Rect
R.Initialize(0,0,40Dip,40Dip)
Dim ImgJO As JavaObject = Img
ImgJO.RunMethod("setBounds",Array As Object(R))
Dim Btn As JavaObject = btnFileItem
Btn.RunMethod("setCompoundDrawables",Array As Object(Img,Null,Null,Null))
End Sub