Visual Basic

Imports System.Runtime.InteropServices

Module Module1

    Public Delegate Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean
    <DllImport("user32")> Public Function EnumWindows( _
ByVal lpFunc As EnumWindowsProc, ByVal lParam As Integer) As Integer
    End Function

    Private Declare Auto Function GetWindowText Lib "user32" _
(ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, _ 
ByVal nMaxCount As Integer) As Integer
    Private Declare Auto Function FindWindowEx Lib "user32" _
(ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, _ 
ByVal lpsz1 As String, ByVal lpsz2 As String) As System.IntPtr

    <Runtime.InteropServices.DllImport("user32.dll")> _
    Private Function ShowWindow(ByVal hwnd As IntPtr, ByVal nCmdShow As Int32) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
      Private Function FindWindow( _
        ByVal lpClassName As String, _
      ByVal lpWindowName As String) As IntPtr
    End Function

    Public Function EnumWindowCBK(ByVal hWnd As IntPtr, ByVal lparam As Integer) As Boolean

        Static WindowText As New System.Text.StringBuilder(100)
        Static nRet As Long

        nRet = GetWindowText(hWnd, WindowText, WindowText.Capacity)
        If nRet <> vbNull Then

            If InStr(WindowText.ToString, "Notepad") <> 0 Then

                ' maximize it
                MsgBox(hWnd.ToString)
                ShowWindow(hWnd, 3)

            End If

        End If

        EnumWindowCBK = True

    End Function

End Module

Module1.EnumWindows(New Module1.EnumWindowsProc(AddressOf EnumWindowCBK), 0)

If picturebox1.Image = image1 then
  do something...
End If