VBA/Excel/Access/Word/Application/Application DoEvent

Use Application.DoEvent

   <source lang="vb">

Sub UseApplicationDoEvent()

      StarWidth = 25
      StarHeight = 25
      
      Set NewStar = ActiveSheet.Shapes.AddShape(msoShape4pointStar, LeftPos, TopPos, StarWidth, StarHeight)
      NewStar.Fill.ForeColor.SchemeColor = Int(Rnd() * 56)
      Application.Wait Now + TimeValue("00:00:01")
      DoEvents
      Application.Wait Now + TimeValue("00:00:02")

End Sub

</source>