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