Hi
try this and you might get the result.
Public Function GetResponce(ByVal url As String) As String
Dim strhtml As String = ""
Dim http As New Chilkat.Http()
Dim unlocked As Boolean = http.UnlockComponent("code to unlock the HTTP component")
If Not unlocked Then
MessageBox.Show("Failed to unlock HTTP component")
Return Nothing
End If
Dim html As String = http.QuickGetStr(url)
If html Is Nothing Then
MessageBox.Show(http.LastErrorText)
Else
strhtml = html
End If
Return strhtml
End Function