title: How can I maximize an IE window created by VBA with SHDocVw.InternetExplorer command?
body: <p>As the title says, I'm trying to maximize an internet explorer window that was created using the following command:</p>
  
  <pre><code>Set ie = New SHDocVw.InternetExplorer
  </code></pre>
  
  <p>Instead of:</p>
  
  <pre><code>Set ie = CreateObject("InternetExplorer.Application")
  </code></pre>
  
  <hr>
  
  <p>Here's the full code:</p>
  
  <pre><code>Sub wpieautologin()
  Dim ie As SHDocVw.InternetExplorer
  
  Dim NOME_EMPRESA, CNPJ, CPF, COD_ACESSO As String
  Dim Lookup_Range As Range
  
  Set ie = New SHDocVw.InternetExplorer
  ie.Visible = False
  ie.Navigate "http://www8.receita.fazenda.gov.br/simplesnacional/controleacesso/autentica.aspx?id=6"
  
  NOME_EMPRESA = Range("B8").Value
  Set Lookup_Range = Range("B12:E500")
  
  CNPJ = Application.WorksheetFunction.VLookup(NOME_EMPRESA, Lookup_Range, 2, False)
  CPF = Application.WorksheetFunction.VLookup(NOME_EMPRESA, Lookup_Range, 3, False)
  COD_ACESSO = Application.WorksheetFunction.VLookup(NOME_EMPRESA, Lookup_Range, 4, False)
  
  Do
  Loop Until ie.readystate = 4
  Call ie.Document.GetElementByID("ctl00_ContentPlaceHolder_txtCNPJ").SetAttribute("value", CNPJ)
  Call ie.Document.GetElementByID("ctl00_ContentPlaceHolder_txtCPFResponsavel").SetAttribute("value", CPF)
  Call ie.Document.GetElementByID("ctl00_ContentPlaceHolder_txtCodigoAcesso").SetAttribute("value", COD_ACESSO)
  ie.Visible = True
  
  &gt;'What should I write here to maximize my IE Window? 
  &gt;'Already tried a few solutions, but they works only when the IE is created by the command 
  &gt;'Set ie = CreateObject("InternetExplorer.Application")
  
  #INSERT COMMAND TO MAXIMIZE WINDOW HERE
  
  End Sub
  </code></pre>
  
  <p>So, how can I achieve this?</p>