Sub Process_Globals
Dim t As Timer
End Sub
Sub AppStart (Form1 As Form, Args() As String)
t.Initialize("t", 5000) '5 seconds
End Sub
Sub BBCodeView_LinkClicked
'your code here...
CallSubDelayed(Me, "LinkClicked_Complete")
End Sub
Sub CLV_ItemClick
t.Enabled=True
Wait For (LinkClicked_Complete) Complete (unused As Boolean)
'your code here
End Sub
Private Sub t_Tick
CallSubDelayed(Me, "LinkClicked_Complete")
End Sub
Sub LinkClicked_Complete
Return t.Enabled=False
End Sub