Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Use Application DoEvent

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