Private Sub btnTimerSetzen_Click(sender As Object, e As EventArgs) Handles _
  btnTimerSetzen.Click
                Dim Interval As Integer = 0
 
        If Integer.TryParse(txtInterval.Text, 0) <> 0 Then
            Interval = txtInterval.Text
            Timer1.Interval = Interval
        End If
 
        If Timer1.Enabled = False Then Timer1.Enabled = True
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        txtZeit.Text = Now
    End Sub

EALA FREYA FRESENA