Private Sub Admin_DeviceFound (Name As String, MacAddress As String)
Log(Name & ":" & MacAddress)
Dim nm As NameAndMac
nm.Name = Name
nm.Mac = MacAddress
foundDevices.Add(nm)
'Code in DeviceFound
Dim jo As JavaObject = admin
jo = jo.GetField("LastDiscoveredDevice")
Dim BClass As JavaObject = jo.RunMethod("getBluetoothClass", Null)
Dim DeviceClass As Int = BClass.RunMethod("getDeviceClass", Null)
Dim MajorDeviceClass As Int = BClass.RunMethod("getMajorDeviceClass", Null)