Dim hwnd As Long = FindWindow("Progman", Nothing)
        Console.WriteLine("Progman: " & hwnd)
        hwnd = FindWindowEx(hwnd, Nothing, "SysListView32", Nothing)
        Console.WriteLine("SysListView32: " & hwnd)
        Dim iconcount As Long = SendMessage(hwnd, &H1000 + 4, 0, 0)
        Console.WriteLine("icons: " & iconcount)

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, _
    ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As Long) As Long

A call to PInvoke function _
  'GIconLayout!ConsoleApplication1.Module1::FindWindowEx' has unbalanced the _
  stack.
This is likely because the managed PInvoke signature does not match the _
unmanaged target signature.
Check that the calling convention and parameters of the PInvoke signature match _
the target unmanaged signature.