[VB] kako zaznati bluetooth telefon?

Imports System.Net
Imports System.IO
Imports InTheHand.Net
Imports InTheHand.net.Bluetooth
Imports InTheHand.Net.Sockets


Public Class Form1
    Dim count As Integer
    Dim startm As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = True
        Timer2.Enabled = True
        count = 0
        startm = 0
    End Sub


    Private Sub Timer1_Timer()
        count = count + 1
        If count = "5" And startm = 0 Then
            startm = 0
            count = 0
            'shell process()
            lstbx.Items.Add("No Bluetooth Devices Found")
            lstbx.Items.Add("Monitoring Started...")
        End If
    End Sub


    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        startm = 0
        lstbx.Items.Clear()

        'BluetoothRadio.PrimaryRadio.Mode = RadioMode.Connectable

        Dim client As New BluetoothClient()
        Dim devices As BluetoothDeviceInfo() = client.DiscoverDevices()
        Dim headsetAddress As BluetoothAddress = Nothing
        Dim device As BluetoothDeviceInfo


        For Each device In devices
            If device.DeviceName = "" Then
                lstbx.Items.Add(device)
                If device.DeviceName = "LGuk" Then
                    lstbx.Items.Add("Bluetooth Devices Found")
                    lstbx.Items.Add("Monitoring Stoped...")
                    headsetAddress = device.DeviceAddress
                    startm = 1
                    'Kill()

                End If
            End If
        Next device


        'Dim headset As New BluetoothEndPoint(headsetAddress, BluetoothService.Headset)
        'client.Connect(headset)
        'Dim myStream As Stream = client.GetStream()

    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class