vb 获取可见窗口句柄到list

Option Explicit

Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim S As String

S = String(80, 0)
Call GetWindowText(hwnd, S, 80)
S = Left(S, InStr(S, Chr(0)) - 1)

If Len(S) > 0 Then Form1.List1.AddItem S

EnumWindowsProc = True
End Function

窗体中加一按钮和一列表框，直接Copy即可运行：

Private Sub Command1_Click()
List1.Clear
EnumWindows AddressOf EnumWindowsProc, 0&
End Sub
这个显示出来的东西很多，我只想要 任务栏里有显示的啊
只有10分了= =

vb如果用窗口句柄获取窗口标题名称 [VB]我只知道该窗口的句柄,该怎么获取窗体上的控件的句柄 VB里取窗口句柄 “获取屏幕的窗口句柄”是什么意思？ VB获取所有运行程序的句柄 如何获取网游子窗口的句柄?(spy++只能获取主窗口句柄) 为什么我用delphi编程获取窗口句柄不成功？ VB用API获取外部程序文本框句柄 20分。VB怎样获取正在运行的文件句柄。？ 关于获得窗口句柄的问题 VB高手进