For Each Loop

[onerrorgoto]

Hello

I'm not very good about this control-collection stuff.

I'm trying to make 2 sub's that takes a form as argument and then checkes if there is any timer in that form.
Sub1 disables the timer & Sub2 Enables the timer.

I tried with

Publc sub DisAbleTimer(Frm as Form)
Dim Ctrl as Control
 For Each Ctrl in Frm
   if Ctrl=Timer then 
   Ctrl.Enable=False 'make it disabled
   end if
 next Ctrl
End Sub

But it didn't work. Any ideas about how to do this??

I'm using VB5 SP3 on this project.
Thank you