Dim intCurrSQL As Integer
Dim name As SQLDMO.NameList
Dim SQLAp As New SQLDMO.Application()

name = SQLAp.ListAvailableSQLServers

For intCurrSQL =  1  To name.Count
     ListBox1.Items.Add(name.Item(intCurrSQL))
Next intCurrSQL