Sub SetBitmapDensity(b As Bitmap) As Bitmap
Dim jo As JavaObject = b
Dim den As Int = Density * 160
jo.RunMethod("setDensity", Array(den))
Return b
End Sub
Sub LoadBitmapWithScale(Dir As String, FileName As String, Scale As Float) As Bitmap
Dim bytes() As Byte = Bit.InputStreamToBytes(File.OpenInput(Dir, FileName))
Dim no As NativeObject
Return no.Initialize("UIImage").RunMethod("imageWithData:scale:", Array(no.ArrayToNSData(bytes), Scale))
End Sub