> Dim loHTMLDocument As mshtml.HTMLDocument = Nothing > Dim loInternetExplorer As SHDocVw.InternetExplorer = Nothing > > loInternetExplorer = New SHDocVw.InternetExplorer > loInternetExplorer.Visible = True > loInternetExplorer.Navigate("MyUrl") > apiShowWindow(loInternetExplorer.HWND, SW_MAXIMIZE) > Do While (loInternetExplorer.Busy) > System.Threading.Thread.Sleep(100) > Loop > loHTMLDocument = loInternetExplorer.Document > loHTMLDocument.getElementById("Username").Value = "MyUsername" > loHTMLDocument.getElementById("Password").Value = "MyPassword" > loHTMLDocument.getElementById("Form1").submit() >>