'Hauptmenü
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Timer1 = New Timer
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub
 
    Private Sub UpdateTimer1(ByVal interval As Integer)
        Timer1.Interval = interval
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        Debug.WriteLine(Now.ToLongTimeString)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim options As New Form2
        AddHandler options.ChangeInterval, AddressOf UpdateTimer1
        options.Show()
    End Sub
End Class

'Optionen
Public Class Form2
    Public Event ChangeInterval(ByVal interval As Integer)
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        RaiseEvent ChangeInterval(CInt(TextBox1.Text) * 1000)
    End Sub
End Class