Аналог Microsoft Web Browser control - VB

Формулировка задачи:

Привет всем.
Есть несколько сайтов, для заполнения данных, работающие через HTTPS протокол.
Работают только через Internet Explorer.
Для автоматизации работы сделал через Microsoft'ский стандартный Webbrowser контрол.
Все нормально работает кроме скорости программы, прога конкретно грузит систему.
И скорость работы тормознутая.
Есть ли какой-либо способ ускорить работу системы? Другой контрол? или как?
Посоветуйте пожалуйста.

Решение задачи: «Аналог Microsoft Web Browser control»

textual
                            Листинг программы 
                        

                            #<font color="blue">If</font> Win32 <font color="blue">Then</font>
      <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> LoadLibraryEx Lib <font color="teal">"Kernel32"</font> Alias <font color="teal">"LoadLibraryExA"</font> _
         (<font color="blue">ByVal</font> lpLibFileName <font color="blue">As</font> <font color="blue">String</font>, _
         <font color="blue">ByVal</font> hFile <font color="blue">As</font> <font color="blue">Long</font>, _
         <font color="blue">ByVal</font> dwFlags <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Integer</font>
      <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Sub</font> FreeLibrary Lib <font color="teal">"Kernel32"</font> (<font color="blue">ByVal</font> hLibModule <font color="blue">As</font> <font color="blue">Integer</font>)
   #<font color="blue">Else</font>
      <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> LoadLibrary Lib <font color="teal">"kernel"</font> (<font color="blue">ByVal</font> f$) <font color="blue">As</font> <font color="blue">Integer</font>
      <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Sub</font> FreeLibrary Lib <font color="teal">"Kernel"</font> (<font color="blue">ByVal</font> h <font color="blue">As</font> <font color="blue">Integer</font>)
   #<font color="blue">End</font> <font color="blue">If</font>
                        