Private Declare Function icePub_openUrl Lib "icePubDll.dll" (ByVal currentUrlString As String, ByVal strHtmlText As String, ByVal TextMaxLen As Integer, ByVal strProxy As String) As Integer
Dim str1 As String
Dim a2 As Integer
str1 = Space(1024 * 20 + 1)
a2 = icePub_openUrl(Text1.Text,str1,1024*20,"")
Text2.Text = str1