Mostrar listado de Servidores SQL vb.NET

Código Fuente:

Public Class Form1
Inherits System.Windows.Forms.Form

'cboInstancias es el nombre del ComboBox donde se cargan los servidores

Private Function instanciasInstaladas() As String()
Dim rk As Microsoft.Win32.RegistryKey
rk = Microsoft.Win32.Registry.LocalMachine.OpenSubKey( _
"SOFTWARE\Microsoft\Microsoft SQL Server", False)
Dim s() As String
s = CType(rk.GetValue("InstalledInstances"), String())
Return s
End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim instancias() As String
instancias = instanciasInstaladas()
For Each s As String In instancias
If s = "MSSQLSERVER" Then
cboInstancias.Items.Add(My.Computer.Info.OSFullName)
Else
cboInstancias.Items.Add(My.Computer.Name & "\" & s)
End If
Next
cboInstancias.Text = My.Computer.Name
End Sub
End Class