[ابراهيم مراد]

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