Module Module1 Dim Manager As wclBluetooth.wclBluetoothManager Const edTimeout = "20" Sub Main() Manager = New wclBluetooth.wclBluetoothManager() AddHandler Manager.AfterOpen, AddressOf AfterOpen AddHandler Manager.OnDiscoveringStarted, AddressOf DiscoveryStarted AddHandler Manager.OnDeviceFound, AddressOf DeviceFound AddHandler Manager.OnDiscoveringCompleted, AddressOf DiscoveryCompleted Manager.Open() While Manager.Count < 0 Threading.Thread.Sleep(1000) End While Dim Res As Int32 = Manager.Item(0).Discover(Convert.ToByte(edTimeout), wclBluetooth.wclBluetoothDiscoverKind.dkClassic) If Res <> wclCommon.wclErrors.WCL_E_SUCCESS Then Console.WriteLine("Error " & Res & " trying to terminate Discovery") End If Console.WriteLine("Press any key to exit") Console.ReadKey() Dim Res2 As Int32 = Manager.Item(0).Terminate If Res2 <> wclCommon.wclErrors.WCL_E_SUCCESS Then Console.WriteLine("Error " & Res & " trying to terminate Discovery") End If Console.ReadKey() End Sub Private Sub AfterOpen() Console.WriteLine("AfterOpen event fired") End Sub Private Sub DiscoveryStarted() Console.WriteLine("OnDiscoveringStarted event fired") End Sub Private Sub DeviceFound() Console.WriteLine("DeviceFound event fired") End Sub Private Sub DiscoveryCompleted() Console.WriteLine("OnDiscoveringCompleted event fired") Manager.Close() End Sub End Module The console output produced is shown below. AfterOpen event fired Press any key to exit OnDiscoveringCompleted event fired