[RESOLVED] Download a webpage from the internet using khttp component?

[sufyaaan]

I am attempting the following code and getting a run-time error '429'

Activex component can't create object.

No matter I have regged it on my PC and included a ref to it from the VB.

Private Sub Command1_Click()
 
    Dim inet As KHTTPLib.inet
    Set inet = CreateObject("KHTTPLib.inet")
     
    inet.openurl ("http://www.yahoo.com/")
    
    Text1.Text = inet.content
    
    Set inet = Nothing
    
End Sub

Anyone help me out?