Sub GetContext As JavaObject
Dim pp As JavaObject
Dim a As Int = 314
Return pp.InitializeNewInstance("com.datalogic.device.input.VScanEntry",Array(a))
End Sub
Sub GetPicasso As JavaObject
Dim pp As JavaObject
Return pp.InitializeNewInstance("com.datalogic.device.input.KeyboardManager",Null)
End Sub
Sub Button1_Click
Log(GetPicasso.RunMethod("disableKey", Array(GetContext,True)))