Public Sub EnterToMailRu()
  Const conLogin As String = «fff»
   Const conPassword As String = «123456»
   Dim i As Integer
   Dim IE As Object
   'Dim varReturn As Variant
   Set IE = CreateObject(«InternetExplorer.Application»)
   IE.Visible = True
   IE.Navigate ("http://www.mail.ru")
   'varReturn = SysCmd(acSysCmdInitMeter, «Entering to Mail.Ru ...», 100)
   While CBool(IE.Busy)
       i = i + 1
       'varReturn = SysCmd(acSysCmdUpdateMeter, Int(i / 30000 * 100))
       If i > 29999 Then
          'varReturn = SysCmd(acSysCmdClearStatus)
          Beep
          MsgBox «Something Is wrong.Mail.Ru Is Not accessible», vbCritical, «Mail.Ru»
          IE.Quit
          Set IE = Nothing
          Exit Sub
       End If
       DoEvents
   Wend
   'varReturn = SysCmd(acSysCmdClearStatus)
   IE.document.Forms.Auth.Login.Value = conLogin
   IE.document.Forms.Auth.Password.Value = conPassword
   IE.document.Forms.Auth.submit
   Set IE = Nothing
End Sub