maybe some how i removed code in this not sure Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
End Sub
i dont rember writing that