Public Class Form1
    Dim taskcollection = CallToScheduler()
    Dim TimersCount As Integer
    Dim Schedulerscollection
    Dim TimersCollection
    Private Ticks As New System.ComponentModel.EventHandlerList
    Sub Form1_load(sender As Object, e As EventArgs) Handles MyBase.Load
       
        TimersCount = Me.SchedulersTableAdapter1.GetCount
        TimersCollection = Set_timers()
    End Sub
    Public Sub Update_Service(stringi As String)
        MsgBox("I`ve recieved it from " & stringi)
    End Sub
    Public Function Set_timers()
        Dim tc(TimersCount - 1)

        Schedulerscollection = Me.SchedulersTableAdapter1.GetData.Select()
        For i As Integer = 0 To (TimersCount - 1)
            tc(i) = New System.Windows.Forms.Timer
            tc(i).Enabled = True
            tc(i).Interval = 10000
            tc(i).tag = Schedulerscollection(i).item("Name")

        Next
        Return tc

    End Function

end class