PHP كود :
Private Function Enumerator(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean
Dim text As String = Space(Int16.MaxValue)
If IsWindowVisible(hwnd) Then
GetWindowText(hwnd, text, Int16.MaxValue)
ListView1.Items.Add(text)
End If
Return True
End Function


![[صورة مرفقة: g5qidgW.jpg]](http://i.imgur.com/g5qidgW.jpg)