Public Sub GetCaptions()
		'Вызов Win32 API функции EnumWindows,
		'вызывающей в свою очередь Callback функцию EnumWindowsProc
		Dim item As Variant
		Dim Res As Long
		
		Res = EnumWindows(AddressOf EnumWindowsProc, 0&)
		
		'Обработка глобальных переменных, определенных в
		'результате совместной работы EnumWindows и EnumWindowsProc
		Debug.Print "Число окон = ", HandleCol.Count
		Debug.Print "Описатели окон"
		Res = 0
		For Each item In HandleCol
			Debug.Print item
			Res = Res + 1
			If Res > 10 Then Exit For
		Next item
		
		Debug.Print "Число окон с заголовками= ", CaptCol.Count
		Debug.Print "Заголовки окон"
		Res = 0
		For Each item In CaptCol
			Debug.Print item
			Res = Res + 1
			If Res > 10 Then Exit For
		Next item
			
	Debug.Print "Число окон, возвращающих класс = ", ClassNameCol.Count
		Debug.Print "Имена классов окон"
		Res = 0
		For Each item In ClassNameCol
			Debug.Print item
			Res = Res + 1
			If Res > 10 Then Exit For
		Next item
End Sub