Una tecnica facil es esta:
supongamos que tenemos esto:
sub From_load
Dim ap as string
Dim time as integer
Dim timer2 as Integer
time = Second(Now)
....
....
....
timer2 = Second(Now)
If timer2 <> timer then
Msgbox "Nos estan debuggeando!!!!"
goto bukleinfinito
End If
Es una idea, hay una api para contar el timepo que esta desde que la iniciamos hasta otro punto, si vemos que el tiempo es grande es que nos estan debuggeando, si pekeño kiere decir que todo sigue su kurso.....
A esto lo e puesto en el Curso de Worms en VB II, que alomejor lo sacare y alomejor no...depede del tiempo y las ganas de escribir...
Agur amigo!!!