taskidからWinhandleに変換しますか?

なぜこのコードがTaskIDからHwndに変換されないのですか.

プライベート関数InstanceToWnd(ByVal target_pid As Long)As Long
'インスタンスハンドルのwindows ハンドルを返します.
Dim test_hwnd As Long
Dim test_pid As Long
Dim test_thread_id As Long
>'最初のwindows ハンドルを取得します.
test_hwnd=FindWindow(vbNullString、vbNullString)
'ターゲットが見つかるか、Windowsが不足するまでループします.
Do While test_hwnd<>0
'参照このwindows に親がある場合.そうでない場合、
'これはトップレベルwindows です.
If GetParent(test_hwnd)= 0 Then
'これはトップレベルwindows です.
'ターゲットインスタンスハンドルがあるかどうかを確認します.
test_thread_id=_
GetWindowThreadProcessId(test_hwnd、_
test_pid)
If test_pid=target_pid Then
'これがターゲットです.
InstanceToWnd=test_hwnd
Exit Do
End If
End If
'次のwindows を調べます.
test_hwnd=GetWindow(test_hwnd、GW_HWNDNEXT)
Loop
End Function

0(ゼロ)を返します-なぜですか?