Не получается найти дескриптор окна с одинаковым классом

Dim _e1, _e2, _e3, _e4, _e5, _e6 As Integer
        Dim className As New StringBuilder(255)
        GetClassName(FindWindow(vbNullString, "ВКонтакте | Легенда"), className, className.Capacity)
_e1 = FindWindow(vbNullString, "ВКонтакте | Легенда")
        _e2 = FindWindowEx(_e1, vbNullString, className.ToString, vbNullString)
        _e3 = FindWindowEx(_e2, vbNullString, "Shell Embedding", vbNullString)
        _e4 = FindWindowEx(_e3, vbNullString, "Shell DocObject View", vbNullString)
        _e5 = FindWindowEx(_e4, vbNullString, "Internet Explorer_Server", vbNullString)
        _e6 = FindWindowEx(_e5, vbNullString, "MacromediaFlashPlayerActiveX", vbNullString)

Public Class frmMain
    Public Delegate Function CallBack(hWnd As Integer, lParam As Integer) As Boolean
    Public Declare Function EnumWindows Lib "user32" (x As CallBack, lParam As Integer) As Integer
    Public Declare Function EnumChildWindows Lib "user32" (hWndParent As System.IntPtr, x As CallBack, lParam As Integer) As Integer
    Private Node As TreeNode
 
    Public Function ReportMain(hwnd As Integer, lParam As Integer) As Boolean
        Node = tvWindows.Nodes.Add(hwnd)
        EnumChildWindows(hwnd, AddressOf ReportChild, 0)
        Return True
    End Function
 
    Public Function ReportChild(hWnd As Integer, lParam As Integer) As Boolean
        Node.Nodes.Add(hWnd)
        Return True
    End Function
 
    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        EnumWindows(AddressOf ReportMain, 0)
    End Sub
End Class

Imports System.Text
Imports System.Runtime.InteropServices
 
Public Class frmMain
    'пришлось объявлять функцию как-то по извращенчески, но главное работает. Видимо из-за кодировки
    <DllImport("user32.dll", CharSet:=CharSet.Ansi)> _
    Private Shared Function GetClassName(ByVal hWnd As System.IntPtr, ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function
 
    Private Delegate Function CallBack(hWnd As Integer, lParam As Integer) As Boolean
    Private Declare Function EnumWindows Lib "user32" (CallBackFunction As CallBack, lParam As Integer) As Integer
    Private Declare Function EnumChildWindows Lib "user32" (hWndParent As System.IntPtr, CallBackFunction As CallBack, lParam As Integer) As Integer
    Private Node As TreeNode
 
    Public Function ReportWindow(hWnd As Integer, lParam As Integer) As Boolean
        Dim sClassName As New StringBuilder("", 256)
        GetClassName(hWnd, sClassName, sClassName.Capacity)
        Node = tvWindows.Nodes.Add(hWnd & " : " & sClassName.ToString)
        Return True
    End Function
 
    Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        EnumWindows(AddressOf ReportWindow, 0)
    End Sub
End Class

Public Delegate Function CallBack(hWnd As Integer, lParam As Integer) As Boolean
    Public Declare Function EnumWindows Lib "user32" (x As CallBack, lParam As Integer) As Integer
    Public Declare Function EnumChildWindows Lib "user32" (hWndParent As System.IntPtr, x As CallBack, lParam As Integer) As Integer
    Dim list As New ArrayList()
 
 
    Public Function ReportMain(hwnd As Integer, lParam As Integer) As Boolean
        EnumChildWindows(FindWindow(vbNullString, "ВКонтакте | Легенда"), AddressOf ReportChild, 0)
        Return True
    End Function
 
    Public Function ReportChild(hWnd As Integer, lParam As Integer) As Boolean
        list.Add(hWnd)
        Return True
    End Function

 For i = 0 To list.Count - 1
            Dim размер As RECT
            GetWindowRect(list.Item(i).ToString, размер)
            Dim ширина As Integer = размер.Right - размер.Left
            Dim высота As Integer = размер.Bottom - размер.Top
            If ширина = 730 And высота = 730 Then
                '
            End If
            ListBox1.Items.Add(list.Item(i) & ", " & размер.Right - размер.Left & ", " & размер.Bottom - размер.Top)
 
        Next