API Problem -> Process anhalten

Hallo Leute

Möchte gerne ein paar fremde Programme anhalten und bei Bedarf wieder 
fortsetzen.
Das ganze möchte ich wie folgt realisieren:

FindHandle = FindWindow(vbNullString, "TestProgramm")
If FindHandle <> "0" Then
GetWindowThreadProcessId FindHandle, PID
Phandle = OpenProcess(PROCESS_ALL_ACCESS, False, PID)
If Phandle = 0 Then
MsgBox "Kann Process nicht öffnen", vbCritical, "So klappts nicht"
Exit Sub
End If
'Hier sollte ich mir das Hthread Prädikat einverleiben
SuspendThread Hthread
end if

Ihr seht schon ich habe ein Problem:
Wie komme ich an HThread rann?