Dim wcrimg As Bitmap
(...)
wcrimg.Initialize(File.DirAssets,"wcr-c2.png")
SetBackgroundImage (wcr,wcrimg, 0)
(...)
Sub SetBackgroundImage(b As Button, bmp As Bitmap, state As Int)
Dim no As NativeObject = b
no.RunMethod("setBackgroundImage:forState:", Array(bmp, state))
End Sub