Bluetooth Scanner

[dabbler12]

I have the following code that shows available COM Ports, allows me to write text and send it for display.

Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel

Public Class Settings

    Dim myPort As Array
    Delegate Sub SetTextCallBack(ByVal [text] As String)

    Private Sub Settings_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        myPort = IO.Ports.SerialPort.GetPortNames()
        PortComboBox.Items.AddRange(myPort)
        btn_Write.Enabled = False

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub btn_Init_Click(sender As Object, e As EventArgs) Handles btn_Init.Click
        SerialPort1.PortName = PortComboBox.Text
        SerialPort1.BaudRate = BaudComboBox.Text
        SerialPort1.Open()

        btn_Init.Enabled = False
        btn_Write.Enabled = True
        btn_Close.Enabled = True

    End Sub

    Private Sub btn_Write_Click(sender As Object, e As EventArgs) Handles btn_Write.Click

        SerialPort1.Write(InputTextBox.Text & vbCr)

    End Sub

    Private Sub btn_Close_Click(sender As Object, e As EventArgs) Handles btn_Close.Click

        SerialPort1.Close()

        btn_Init.Enabled = True
        btn_Write.Enabled = False
        btn_Close.Enabled = False
    End Sub

    Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        ReceivedText(SerialPort1.ReadExisting())
    End Sub

    Private Sub ReceivedText(ByVal [text] As String)
        If Me.OutputTextBox.InvokeRequired Then
            Dim x As New SetTextCallBack(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.OutputTextBox.Text &= [text]
        End If
    End Sub 

I'm looking for a way to search for available Bluetooth connections and connect to a chosen Bluetooth device within the program. Any ideas?