InetCtlsObjects в VB.NET

Please help:

Public Class Class1
Public strHtml As String

Public WithEvents Inet1 As InetCtlsObjects.Inet

Public Sub New()

Inet1 = new InetCtlsObjects.Inet()

strHtml = Inet1.OpenURL("http://www.fandango.com")

End Sub
End Class

Класс компилируется, но strHtml всегда ""
Спасибо!