Option Explicit
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Const GW_OWNER = 4

Function lpfunc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
	Dim pstr As String, Ret As Long
	If IsWindowVisible(hwnd) = False Then GoTo continu
	If GetWindow(hwnd, GW_OWNER) <> 0 Then GoTo continu
	Ret = GetWindowTextLength(hwnd)
	pstr = Space(Ret)
	If GetWindowText(hwnd, pstr, Ret + 1) = 0 Then GoTo continu
	If pstr <> "" And pstr <> "Program Manager" Then Form1.List1.AddItem pstr
	continu:
	lpfunc = True
End Function
'----------------------------------------以上代码放到模块里

Private Sub Command1_Click()
	List1.Clear
	EnumWindows AddressOf lpfunc, ByVal 0&
End Sub