lcUserName = "yourusername" lcPassword = "yourpassword" oIE = CREATEOBJECT("InternetExplorer.Application") oIE.Navigate("www.levelextreme.com") INKEY(1) nStartSeconds = SECONDS() DO WHILE oIE.Document.ReadyState <> "complete" AND (SECONDS()-nStartSeconds < 30) ENDDO IF oIE.Document.ReadyState <> "complete" MESSAGEBOX("Universalthread is unavailable") oie.Visible = .T. RETURN .F. ENDIF oie.document.forms(0).Username.Value = lcUsername oIE.Document.Forms(0).Password.Value = lcPassword oIE.Document.Forms(0).Submit() oIE.Visible = .T.To login w/o VFP see Re: Universalthread Login Message #674402