Problem with the Webbrowser Control

Hello...

I have 2 Forms for a simple Test..

Form1: works with the MS Browser Control shdocvw.dll
Form2: works with the Codejock Browser Control

When i start then Form1, i load a simpe Website with Frames.
in the DocumentComplete event i have the pDisp Object to look, is the
Framewebsite complete for load.

Form1: with MS Browser

Private Sub Browser_DocumentComplete(ByVal pDisp As Object, URL As Variant)

    If (pDisp Is Browser.Object) Then
        If InStr(1, URL, "testsite.html") > 0 Then
            MsgBox "Site comlete !
        End If
    End If

    '- WORKS PERFECT -

End Sub


  
Form2: with Codejock Browser

Private Sub Browser_DocumentComplete(ByVal pDisp As Object, URL As Variant)

     If (pDisp Is Browser.Object) Then
        If InStr(1, URL, "testsite.html") > 0 Then
            MsgBox "Site comlete !
        End If
    End If

   '- Works not !!!! -> The pDisp Object is not the Browser.Object

End Sub

with this routine and the codejock Browser i can't check a special site..

any idears ???

Greetings

ProScan

Hello oleg,
thanks for help, it work's !

Proscan