Bluetooth Signal Strength in VB6

I need a vb6 application (single form) that auto discovers and connects, via bluetooth, to any mobile phones in range and displays the device name, address and specifically, the "bluetooth signal strength" of each connected phone, using the BlueSoleil API as per the API spec at [login to view URL] . I isn't necessarily important how you get the signal strength, but that you can get it and that it can be continually monitored/refreshed at intervals of no longer than 10 seconds. I would expect this to take a couple of days effort.