How Would You Write This Code:

Code:
            Try
                Dim cont As Timer
                For Each cont In Form1.Controls 'maybe issue..
                    If (TypeOf cont Is Timer) Then
                        If cont.Enabled = True Then
                            DR1.Text += cont.Interval
                        End If
                    End If
                Next
            Catch
                MsgBox(ErrorToString)
            End Try
What it's supposed to do:

Act As A Shortcut To Let Me Know Of All Active Timers On Form1
Without Having To Write Each Out Individually.

Thanks