Visual Basic - averiguar el "PID" de un proceso lanzado por vb

Si Lanzo un aplicacion por ejemplo un CrystalReport desde vb, este cogera un Identificador de proceso "PID", Existe algun API que me diga que PID se le ha asignado ,

Mi problema es que tengo q presentar varios Crystal Reports uno detras de otro, de forma q cuando el usuario cierre uno yo pueda presentar el siguiente.
Si se que PID se le ha asignado podria hacer un bucle que de "no hacer hacer nada" hasta q el proceso fuera matado (osea que el usuario cerrara el crystalreport ) y aconinuacion lanzaria el siguiente.
Analogamente Si lanzo un docomento de word, y me interesa parar el programa hasta q el usuario cierre ese documento. sigo teniendo el mismo problema

Si me podeis ayudar os lo agradeceria un mucho

Gracias

En el primer caso de Crystal Reports si trabajas con los objetos CRPE lo puedes controlar a través de los eventos por lo que no necesitas trabajar con las API's de procesos que de por sí en VB son bastante difíciles de implementar.

En cuanto a Word ocurre lo mismo, si trabajás con la referencia y los eventos (Dim WithEvents objWord As Word.Application) también lo puedes controlar por los mismos eventos y evitar trabajar con los PID.

Tambien puedes buscar la ventana con X titulo

' =================== En un modulo :

Public Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Public TextoBuscar
Public ElHwnd As Double

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
Dim lLength As Long
Dim strCaption As String

lLength = GetWindowTextLength(hwnd)
strCaption = String$(lLength, vbNullChar)
GetWindowText hwnd, strCaption, lLength + 1

If strCaption Like "*" & TextoBuscar & "*" Then
ElHwnd = hwnd
Form1.Timer1.Enabled = True
Form1.Timer2.Enabled = False
End If

EnumWindowsProc = True

End Function

' =================== En un Formulario :

Se ocupa un Boton y 2 Timers. Los Timers a Interval 100 y Enabled False

Private Sub Command1_Click()
TextoBuscar = "MSN Messenger"
Timer2.Enabled = True
ElHwnd = 0
End Sub

Private Sub Timer1_Timer()
If ElHwnd = 0 Then
Exit Sub
End If

If GetWindowTextLength(ElHwnd) = 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
ElHwnd = 0
MsgBox "Cerrado"
' Aqu ipones otro TextoBuscar
End If
End Sub

Private Sub Timer2_Timer()
Call EnumWindows(AddressOf EnumWindowsProc, 0&)
End Sub