Доброе время суток!!
Хочется получить инфу об окнах через EnumWindows, но возникает ошибка о инициализации ListBox в модуле :(

код функции в модуле такой:
Public Function EnumWindowsProc(ByVal hWnd As Long, ByVal lParam As Long) As Long
Dim slength As Long, wintext As String ' title bar text length and buffer
Dim retval As Long ' return value
Dim buffer As String
Dim List1 As ListBox
Dim blnIsVisible As Boolean
Static winnum As Integer ' counter keeps track of how many windows have been enumerated
'With List1
winnum = winnum + 1 ' one more window enumerated....
blnIsVisible = IsWindowVisible(hWnd)

If blnIsVisible Then
slength = GetWindowTextLength(hWnd) + 1 ' get length of title bar text
If (slength > 1) Then ' if return value refers to non-empty string

buffer = Space(slength) ' make room in the buffer
retval = GetWindowText(hWnd, buffer, slength) ' get title bar text

List1.AddItem ("Window #" & hWnd & " : " & Left(buffer, slength - 1))
End If
End If

EnumWindowsProc = 1 ' return value of 1 means continue enumeration

End Function

Народ, подскажите, очень нужно !!

ау, люди, неужели это сложный вопрос или необходимы дополнительные сведения по теме???

Большой респект то Lepaj . Это похоже то, что нужно!

MSForms.ListBox, VB - не понимает, что это такое как это проинициализировать и где?