hwnd = GetWindow(hWndStart, GW_CHILD)
Do Until hwnd = 0
   Call FindWindowLike(hWndArray(), hwnd, WindowText, Classname)
    ....
loop

Public Function ListViewSelStartItem(ListView As ListView)  As ListItem
 
  Dim nListViewSelStartIndex As Long
 
  Const LVM_GETSELECTIONMARK = &H1042
 
  nListViewSelStartIndex = SendMessage(ListView.hwnd, _
   LVM_GETSELECTIONMARK, 0&, 0&)
  If ListViewSelCount(ListView) Then
    Set ListViewSelStartItem = _
     ListView.ListItems(nListViewSelStartIndex + 1)
  End If
End Function