Sub pnl_Touch(...)
C 'Triggers timer which performs some slow actions by repeated ticks
End Sub
Sub B 'THIS IS RECURSIVE
C 'When this starts the timer, the code...
Do While Timer.enabled 'Added to wait for Timer??
DoEvents
Loop
more stuff '...continued here because the timer
End Sub ' has not yet triggered.
Sub C
...
If ... Then
count=20
Timer.enabled=True
End If
...
End Sub
Sub Timer_Tick 'one of 20 cycles
If count>0 Then
count=count-1
some action
Else
Timer.enabled=False
...
B 'this will retrigger timer via C
...
End If
End Sub