Dim notepadID As Integer
' Activate a running Notepad process.
AppActivate("Untitled - Notepad")
' AppActivate can also use the return value of the Shell function.
' Shell runs a new instance of Notepad.
notepadID = Shell("C:\WINNT\NOTEPAD.EXE", AppWinStyle.NormalFocus)
' Activate the new instance of Notepad.  
AppActivate(notepadID)

Option Explicit On 
Option Strict On 
 
Public Class Form1   
 
    Private Sub Form1_Load( _   
        ByVal sender As System.Object, _   
        ByVal e As System.EventArgs) Handles MyBase.Load   
 
        ' Pasar el nombre de la ventana a buscar   
        MsgBox(Buscar_Aplicacion("Sin título - bloc de notas", True))   
 
    End Sub 
 
    Public Function Buscar_Aplicacion( _   
        ByVal titulo_ventana As String, _   
        ByVal bNombre_Exacto As Boolean) As Boolean 
 
        ' nuevo objeto Process   
        Dim p As New Process()   
 
        Dim sName_Titulo As String = String.Empty   
 
        ' recorrer la lista de procesos abiertos en la colección   
        For Each p In Process.GetProcesses   
 
            Try 
                ' obtener con la propiedad MainWindowTitle del objeto Process   
                ' el nombre de la ventana asociado a este proceso y comparar   
                sName_Titulo = p.MainWindowTitle.ToLower   
 
                ' comparar por la cadena completa   
                If bNombre_Exacto Then 
                    If sName_Titulo = titulo_ventana.ToLower Then Return True 
                    ' Por la cadena parcial   
                Else 
                    If sName_Titulo.Contains(titulo_ventana.ToLower) Then Return True 
                End If 
 
            Catch ex As Exception   
                MsgBox(ex.Message.ToString)   
            End Try 
        Next 
    End Function 
 
End Class