Dim i As Integer
Dim oNames As SQLDMO.NameList
Dim oSQLApp As SQLDMO.Application
Set oSQLApp = New SQLDMO.Application
Set oNames = oSQLApp.ListAvailableSQLServers()
For i = 1 To oNames.Count
'now you can manage oNames.Item(i) /// it is vb6 code but works well in vb.net too
Next
listBox1.DisplayMember = "ServerName"
listBox1.DataSource = System.Data.Sql.SqlDataSourceEnumerator.Instance.GetDataSources()