[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
اخي الكريم كخطوات تكميلية (لان كثير من الامور تغيرت)
احرص على استيراد المراجع التالية
Microsoft.SqlServer.ConnectionInfo
Microsoft.SqlServer.Management.Sdk.Sfc
Microsoft.SqlServer.Smo
Microsoft.SqlServer.SmoExtended
Microsoft.SqlServer.SqlEnum

المرجع المعلم بالاحمر مهم من اجل دوال النسخ و الاستعادة .

و تطوير على كود جلب السيرفرات انسخ هذا الكود لديك .

PHP كود :

#Region "Load Servers"
    Public Function LoadServer64() As List(Of String)
        LoadServer64 = New List(Of String)
        Dim LocalMachine64 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
        Dim Rk64 = LocalMachine64.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
        Dim Insatnces64 = CType(Rk64.GetValue("InstalledInstances"), String())

        If Insatnces64.Length > 0 Then
            For Each element As String In Insatnces64
                If element = "MSSQLSERVER" Then
                    LoadServer64.Add(System.Environment.MachineName)
                Else
                    LoadServer64.Add(System.Environment.MachineName + "\" + element)
                End If
            Next
        End If
    End Function

    Public Function LoadServer32() As List(Of String)
        LoadServer32 = New List(Of String)
        Dim LocalMachine32 = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry32)
        Dim Rk32 = LocalMachine32.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
        Dim Insatnces32 = CType(Rk32.GetValue("InstalledInstances"), String())

        If Insatnces32.Length > 0 Then
            For Each element As String In Insatnces32
                If element = "MSSQLSERVER" Then
                    LoadServer32.Add(System.Environment.MachineName)
                Else
                    LoadServer32.Add(System.Environment.MachineName + "\" + element)
                End If
            Next
        End If
    End Function
#End Region 


في حدث تحميل الفورم امسح الكود التالي

PHP كود :

LoadServ() 


ضع بدلاً عنه هذا الكود

PHP كود :

For Each itm As String In LoadServer64()
            LstSrv.Items.Add(itm)
        Next 


بدل بين LoadServer64  او LoadServer32 حسب نوع النظام لديك.


بالنسبة للكلمة New لا داعي لوجودها .
جرب و اخبرنا 
بالتوفيق.