При каждом новом нажатии кнопки удалить старый таймер и создать новый

Public Sub MenuItem2_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles MenuItem2.Click
        'Создаем таймер
        Dim Timer = New System.Windows.Threading.DispatcherTimer()
 
        ' Прописываем процедуру события по завершению интервала таймера
        AddHandler Timer.Tick, AddressOf Timer_Tick
 
        Timer.Interval = New TimeSpan(0, 0, st) 'Задаем интервал в  секундах
        Timer.Start() 'запускаем таймер
        ik = 0 'устанваливаем счетчик картинок в списке в 0
 
    End Sub

 Private Sub Timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
        Dim n As Integer = Listimage.Count - 1 'кол-во элементов в списке картинок
        If n <= 0 Then  ' Если в списке пусто - ничего не делаем
            Exit Sub
        End If
        'Помещаем в имеджбокс картинку
        Image1.Source = Listimage.Item(ik)
        ik = ik + 1
        If ik > n Then 'Если прошли по всему списку - возварщаемся к началу
            ik = 0
        End If
 
    End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Static oldTimer As Timer = Nothing 'здесь будет хранится предыдущий таймер
        If Not oldTimer Is Nothing Then 'проверяем пуста ли у нас переменная oldTimer 
            oldTimer.Dispose() 'если нет, то удаляем предыдущий таймер
        End If
        Dim newTimer As New Timer 'создаём таймер
        AddHandler newTimer.Tick, AddressOf Timer_Tick
        newTimer.Start() 'запускаем
        oldTimer = newTimer 'устанавливаем переменную newTimer к oldTimer
    End Sub

    Public Sub MenuItem2_Click(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles MenuItem2.Click
 
        Static Dim oldTimer As System.Windows.Threading.DispatcherTimer = Nothing 'здесь будет хранится предыдущий таймер
        If Not oldTimer Is Nothing Then 'проверяем пуста ли у нас переменная oldTimer 
            oldTimer.Stop()
        End If
        Dim newTimer As New System.Windows.Threading.DispatcherTimer 'создаём таймер
        ' Прописываем процедуру события по завершению интервала таймера
        AddHandler newTimer.Tick, AddressOf Timer_Tick
        newTimer.Interval = New TimeSpan(0, 0, st) 'Задаем интервал в  секундах
        newTimer.Start() 'запускаем
        oldTimer = newTimer 'устанавливаем переменную newTimer к oldTimer
        ik = 0 'устанваливаем счетчик картинок в списке в 0
 
    End Sub