Public Sub SetBackgroundImage(btn As Button, imbEnabled As String, imbDisabled As String)
BackgroundImage(btn, LoadBitmap(File.DirAssets, imbEnabled), 0)
BackgroundImage(btn, LoadBitmap(File.DirAssets, imbDisabled), 2)
End Sub
Private Sub BackgroundImage(b As Button, bmp As Bitmap, state As Int)
Dim no As NativeObject = b
no.RunMethod("setBackgroundImage:forState:", Array(bmp, state))
End Sub