Debugger.Launch()

    Try

        If TimeOfDay.ToString("mm").Equals(upperBound(time)) Then


            Me.MyTimer = New System.Threading.Timer(New System.Threading.TimerCallback(AddressOf Me.OnTimedEvent), Nothing, 0, 900000)

            isRunning = True

        Else
            Try
                wait(upperBound(IntTime))

            Catch Wex As Exception
                IO.File.AppendAllText("D:serviceStart.txt", String.Format("{0}{1}", Environment.NewLine, Wex.ToString()) & DateAndTime.Now.ToString("dd/mm/yyyy hh:mm:ss"))

            End Try

        End If


    Catch ex As Exception

        IO.File.AppendAllText("D:serviceStart.txt", String.Format("{0}{1}", Environment.NewLine, ex.ToString()) & DateAndTime.Now.ToString("dd/mm/yyyy hh:mm:ss"))

    End Try
End Sub

Protected Overrides Sub OnStop()
    isRunning = False

End Sub

Public Sub OnTimedEvent()

    Try
        While isRunning

            Try
                conn = New OdbcConnection(connectionString)
                conn.Open()

                sql = "select FIRST 10 starttime, starttime_utc, intrvl, acd, split, tenant from hsplit where starttime = '" & TimeOfDay.ToString("hh") & GiveMinutes(time) & "' "

            Catch ex1 As Exception

                IO.File.AppendAllText("D:serviceStart.txt", String.Format("{0}{1}", Environment.NewLine, ex1.ToString()))

            End Try


            da = New OdbcDataAdapter(sql, conn)
            da.Fill(ds, "hsplit")
            'DataGridView1.DataSource = ds.Tables("hsplit")

            sqlconn.Open()

            For Each dr As DataRow In ds.Tables("hsplit").Rows
                'Dim todate As String = dr("row_date").ToString


                Dim str2 As String = "insert into hsplit( starttime, starttime_utc, intrvl, acd, split, tenant) values ('" & dr("starttime").ToString & "','" & dr("starttime_utc").ToString & "','" & dr("intrvl").ToString & "','" & dr("acd").ToString & "','" & dr("split").ToString & "','" & dr("tenant").ToString & "'  )"
                Using scmd = New MySqlCommand(str2, sqlconn)

                    scmd.ExecuteNonQuery()
                End Using

            Next
            'MsgBox("done!")
            sqlconn.Close()
        End While
        File.AppendAllText("D:serviceStart.txt", Environment.NewLine() & " " & DateAndTime.Now.ToString("dd/mm/yyyy hh:mm:ss") & " " & GiveMinutes(time))

    Catch ex As Exception
        IO.File.AppendAllText("D:serviceStart.txt", String.Format("{0}{1}", Environment.NewLine, ex.ToString()))
    End Try

End Sub

Sub wait(ByVal interval As Integer)
    Dim sw As New Stopwatch
    sw.Start()
    While Convert.ToInt32(TimeOfDay.ToString("mm")) < interval
        Threading.Thread.Sleep(100)
    End While
    sw.Stop()

    Me.MyTimer = New System.Threading.Timer(New System.Threading.TimerCallback(AddressOf Me.OnTimedEvent), Nothing, 0, 900000)

    isRunning = True
End Sub