Dim jo As JavaObject = Manager
Log(jo.RunMethod("getI2cBusList", Null))
Dim Name As String = "..."
Dim Address As Int = ...
Dim device As JavaObject = jo.RunMethod("openI2cDevice", Array(Name, Address))
'Now call I2cDevice methods:
Dim buffer(100) As Byte
device.RunMethod("read", Array(Buffer, Buffer.Length))
Dim data As Byte = ...
Dim reg As Int = ...
device.RunMethod("writeRegByte", Array(reg, data))