Se ho capito bene vorresti qualcosa da mettere in un'Activity che ti consenta di fare una pausa.
In pratica DOVRESTI creare una classe, all'interno della quale un timer e, scaduto il tempo, richiamare tramite CallSubDelayed una routine dell'Activity chiamante.
Il tutto è però superfluo, perché è la stessa identica cosa che aggiungere un timer direttamente nell'Activity.
Cioè, dovresti fare:
Activity
Dim objMiaClassePausa As MiaClassePausa
objMiaClassePausa.Initialize(Me, 1000) ' ms
sub PausaTerminata
' qui riprenderebbe
End sub
MiaClassePausa
Private mChiamante As Object
Private tmrScadenza As Timer
Sub Initialize(Chiamante As Object, Durata As Int)
mChiamante = Chiamante
tmrScadenza.Initialize("tmrScadenza", Durata)
' qui decidi se far partire subito il timer
tmrScadenza.Enabled = True
trmScadenza_Tick
If SubExists(mChiamante, "PausaTerminata") Then
CallSubDelayed(mChiamante, "PausaTerminata")
End If
End Sub
Tutta sta pappa per dire che sarebbe uguale ad un timer direttamente nell'Activity (magari, però, si vede come creare una classe - da trasformare poi in libreria - e lanciare una routine del chiamante, il che significa creare un evento).