Private Sub AddImage(sheet As WritableSheet, bmp As InputStream, col As Double, row As Double, _
width As Double, height As Double)
Dim wi As JavaObject
wi.InitializeNewInstance("jxl.write.WritableImage", Array(col, row, width, height, _
Bit.InputStreamToBytes(bmp)))
Dim jo As JavaObject = sheet
jo.RunMethod("addImage", Array(wi))
End Sub