iLogic code isn't update until exit the code

[Anonymous]

I want to create a helix with a variable numbers of item and then shown. I want to illustrate a flow, with a "moving arrow".  the parameter "no" is number of arrows.

the code is: 

Dim i As Integer
For i = 1 To 40
	Tid1 = now()
	Dim Tid2 As Date = Tid1.AddSeconds(0.25)
	Do Until Tid1 >= Tid2
	Tid1 = Now()
	Loop
no = i ' number of items in rectangular pattern

	InventorVb.DocumentUpdate
	iLogicVb.UpdateWhenDone = True
	Parameter.UpdateAfterChange = True

	Next i

model is not updates before exit the code, I want to show first 1 arrow, then 2 arrows, 3 arrows, ect. 
I want to update the model before the code is exited.
	want to animate with variable number of arrows

[chandra.shekar.g]

@Anonymous,

Hoping that below iLogic code would help to animate.

Dim i As Integer
For i = 1 To 40
	Threading.Thread.Sleep(3000) 'Delays 3 secs to create next arrow
	no = i ' number of items in rectangular pattern

	InventorVb.DocumentUpdate
	iLogicVb.UpdateWhenDone = True
	Parameter.UpdateAfterChange = True

Next i

Thanks and regards,

[Anonymous]

thanks for your reply, a better code for delay, but still my part file is first updated when all the code is finish. So there is still no animation, only the final result. FYI my pattern 

[MechMachineMan]

1. You are literally telling it to ONLY update after the code is finished by using the line "UpdateWhenDone".....

2. Parameters can get out of sync with the model. If you use the Parameter("d0") format, you can use extra lines to make things happen smoothly..

https://knowledge.autodesk.com/support/inventor-products/learn-explore/caas/CloudHelp/cloudhelp/2015...

'iLogicVb.UpdateWhenDone = True
MultiValue.UpdateAfterChange = True 'likely not needed if you aren't using multivalue...
Parameter.UpdateAfterChange = True
RuleParametersOutput()

Dim i As Integer
    For i = 1 To 40
        Tid1 = now()
        Dim Tid2 As Date = Tid1.AddSeconds(0.25)

        Do Until Tid1 >= Tid2
            Tid1 = Now()
        Loop

        InventorVb.DocumentUpdate
        no = i ' number of items in rectangular pattern
Next i