How to enum SQL Server instances in network

Public Class Form1

    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        Dim dt As Data.DataTable = Nothing, dr As Data.DataRow = Nothing

        Try
            dt = Sql.SqlDataSourceEnumerator.Instance.GetDataSources()


            For Each dr In dt.Rows
                Me.CmbSQLInstance.Items.Add(dr.Item(0).ToString)
            Next
            Me.DGVSQLInstances.DataSource = dt

        Catch ex As System.Data.SqlClient.SqlException
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error!")

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error!")

        Finally
            dr = Nothing
            dt = Nothing
        End Try


    End Sub

    Protected Overrides Sub Finalize()
        MyBase.Finalize()
    End Sub
End Class