Public Class Form1
    Public Timer1 As Timer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Timer() Then
            Return
        ElseIf Not Timer() Then
            Timer()
        End If
        If Timer1.Enabled Then
            Timers()
        End If

        If Not Timer1.Enabled Then
            Timer()
        End If


    End Sub
    Dim Timerss As Integer
    Dim Interval As Integer

    Function Timer()
        Timer1 = New Timer()
        Timer1.Interval = 1000
        Timer1.Start()
    End Function

    Dim Time As String
    Dim Dates As String
    Dim datStart As Date
    Function Timers()
        Time = TimeString
        Dates = DateString


        Label2.Text = Time
        Label1.Text = Dates
    End Function
End Class