下面是VB6的代码，因对VB6的语法不熟悉，各位麻烦帮个忙把下面的代码改为VB.NET？

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Long, ByVal wFlag As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll " (ByVal dwMilliseconds As Long)
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private DownName() As Long
Private DownHwnd() As Long

Public Function GetDown(ParentHwnd As Long) As String         '这个ParentHwnd   参数就是窗体句柄

    Dim temparr()     As String
    Dim hwnd     As Long, L       As Long
    Dim tempstr1     As String * 256, tempstr2           As String * 256
    Dim tempstr11     As String, tempstr22       As String
    Dim ename As String
    Dim i As Long
    Dim a As String

    ReDim temparr(3, 0)
    hwnd = GetNextWindow(ParentHwnd, 5)
     GetWindowText ParentHwnd, ename, 5
    Dim js As Integer
    Do
        If hwnd > 0 Then
            i = GetWindowTextLength(hwnd)
            a = String$(i + 1, 0)
            GetWindowText hwnd, a, Len(a)
            hq = InStr(1, a, "共")
            hq = hq + InStr(1, a, "正")
            If hq > 0 Then
               GetDown = getCaption(ParentHwnd) & "    " & a
            End If
        End If
        hwnd = GetNextWindow(hwnd, 2)
    Loop While hwnd > 0
End Function

Public Function getCaption(hwnd As Long)
'获取窗口名称
    Dim hWndlength As Long, hWndTitle As String, a As Long
    hWndlength = GetWindowTextLength(hwnd)
    hWndTitle = String$(hWndlength, 0)
    a = GetWindowText(hwnd, hWndTitle, (hWndlength + 1))
    b = Split(hWndTitle, "(")
    getCaption = Left(b(1), Len(b(1)) - 1)
End Function --------------------编程问答-------------------- 以下是我修改后的代码，但与原VB6执行的结果不相同，不知道出错在哪里。

    Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Integer, ByVal lpString As String, ByVal cch As Integer) As Integer
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
    Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Integer) As Integer
    Private Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Integer, ByVal nIDDlgItem As Integer) As Integer
    Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As Integer, ByVal wFlag As Integer) As Integer
    Private Declare Sub Sleep Lib "kernel32.dll " (ByVal dwMilliseconds As Integer)
    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
    Private DownName() As Integer
    Private DownHwnd() As Integer
    '获取程序的信息
    Public Function GetDown(ByVal ParentHwnd As Integer) As String         '这个ParentHwnd   参数就是窗体句柄

        Dim temparr() As String
        Dim hwnd As Integer, L As Integer
        Dim tempstr1 As String
        Dim tempstr2 As String
        Dim tempstr11 As String
        Dim tempstr22 As String
        Dim ename As String
        Dim i As Integer
        'Dim a As String

        ReDim Preserve temparr(3)
        hwnd = GetNextWindow(ParentHwnd, 5)
        GetWindowText(ParentHwnd, ename, 5)
        Dim js As Integer

        Do

            If hwnd > 0 Then
                i = GetWindowTextLength(hwnd)
                Dim a As New String(CChar(CStr(i + 1)), 0)
                GetWindowText(hwnd, a, Len(a))
                Dim hq As String
                hq = InStr(1, a, "共")
                hq = hq + InStr(1, a, "正")
                If hq > 0 Then
                    GetDown = getCaption(ParentHwnd) & "    " & a
                End If
            End If
            hwnd = GetNextWindow(hwnd, 2)
        Loop While hwnd > 0
    End Function

    Public Function getCaption(ByVal hwnd As Integer)
        '获取窗口名称
        Dim hWndlength As Integer, a As Integer
        hWndlength = GetWindowTextLength(hwnd)
        Dim hWndTitle As New String(CChar(CStr(hWndlength)), 0)
        a = GetWindowText(hwnd, hWndTitle, (hWndlength + 1))
        Dim b As String() = Split(hWndTitle, "(")
        getCaption = Left(b(1), Len(b(1)) - 1)
    End Function
--------------------编程问答-------------------- 这个涉及到另一个程序的问题，别人不方便帮你调试，建议你单步调试，看看哪一步不对，把那个步骤的调用、上下文参数、不同在哪里等等贴出来，看看能不能帮到你。 --------------------编程问答-------------------- 在vb.net我把这段修改的代码保存为类文件 Class1 ，在其它窗体只引用

Dim objdb As New Class1
Dim hWnd As Integer= 172818 '窗体句柄
Dim str2 As String = objdb.GetDown(hWnd)

--------------------编程问答-------------------- vb6 中代码返回则是一段字符串 "共200392mb,速度98kb/s"；
vb.net 通过我自己修后的代码，则返回是Nothing，应当是我修改后代码不正确，望各位能够帮我看看。 --------------------编程问答-------------------- 你还是可以按F11一步步调试的啊！看看那步开始出错了

补充：.NET技术 ,  VB.NET