Option Explicit

Private Sub Form_Load()
  AutoRedraw = True
End Sub

Private Sub Command1_Click()
  
  Cls
  
  Call MakeArray
  
  Dim x As Long
  For x = 1 To UBound(ListEnumWindow)
    Print ListEnumWindow(x)
  Next

End Sub

Option Explicit

Private Declare Function EnumWindows Lib "user32" (ByVal wndenmprc As Long, ByVal lParam As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Public ListEnumWindow() As String
Private Proc As Integer

Public Sub MakeArray()
  Proc = 0
  Erase ListEnumWindow
  Call EnumWindows(AddressOf mEnumWindows, 0&)
End Sub

Private Function mEnumWindows(ByVal wHwnd As Long, ByVal lParam As Long) As Boolean

Dim wLen    As Long
Dim wText   As String

If IsWindowVisible(wHwnd) Then
    wLen = GetWindowTextLength(wHwnd)
    If wLen > 0 Then
        wText = Space$(wLen + 1)
        GetWindowText wHwnd, wText, Len(wText)
        Proc = Proc + 1
        ReDim Preserve ListEnumWindow(Proc)
        ListEnumWindow(Proc) = Replace(wText, Chr(0), "")
    End If
End If

mEnumWindows = True

End Function