Sub Activity_Click
Log($"Click: $Time{DateTime.Now}"$)
Starter.csu.CallSubPlus(Me, "Sub_1", 2000) 'Gira dopo 2 secondi
Starter.csu.CallSubPlus2(Me, "Sub_2", 1000, Array("Value 1", "Value 2")) 'Gira dopo 1 secondo
End Sub
Sub Sub_1
Log($"Sub_1: $Time{DateTime.Now}"$)
End Sub
Sub Sub_2(args() As Object)
Log($"Sub_2: $Time{DateTime.Now}, arg(0)=${args(0)}"$)
End Sub
....
il resto del codice guardala sul link che ti ho inviato