主题：有人能转换成浏览局域网内的服务器代码吗？

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Dim instance As System.Data.Sql.SqlDataSourceEnumerator = System.Data.Sql.SqlDataSourceEnumerator.Instance
        Dim dataTable As System.Data.DataTable = instance.GetDataSources()

        Me.ListBox1.Items.Clear()
        For Each row As DataRow In dataTable.Rows
            If (row("InstanceName").ToString = String.Empty) Then
                Me.ListBox1.Items.Add(row("ServerName").ToString)
            Else
                Me.ListBox1.Items.Add(row("ServerName").ToString & "\" & row("InstanceName").ToString)
            End If
        Next
        Me.ListBox1.SelectedIndex = 0

    End Sub

End Class

这段代码可以浏览局域网内服务器的代码。

有人可以把这段代码转换成狐表可以运行的代码吗？