Открытие формы по таймеру - Visual Basic .NET

Формулировка задачи:

Здравствуйте всем доброй ночи ! Есть два вопроса оба по таймеру надеюсь очень на вашу помощь. 1) Не могу никак заставить чтобы по таймеру открывалась форма, создал все элементы на форме vb.net не ругается, но ничего и не происходит. И как сделать чтобы он всю неделю ее открывал, а не с понедельника по пятницу?

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer1.Interval = 600000
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim D As Date = Now
        If Mid(TimeOfDay, 1, 5) = "11:00" And D.DayOfWeek <= 5 Then
            Form2.Show()
        End If
    End Sub
 
End Class

2). Есть лейбл на форме в нем отображается дата последнего изменения (обновления) папки

Private Sub Index_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label3.Text = IO.Directory.GetLastWriteTime("C:\PS\Export")
    End Sub

Дак вот вопрос, как поставить таймер на лейбл, чтобы он обновлял скажем через каждые 10 минут его и в месте с этим если, что то новое в папке появилось то дата обновлялась. Спасибо.

И как сделать чтобы он открывал не только в 11:00, а допустим в 14:00 и 18:00. Как понимаю это так:

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim D As Date = Now
        If Mid(TimeOfDay, 1, 5) = "11:00" And D.DayOfWeek <= 5 Then
            Form2.Show()
        End If
   Dim F As Date = Now
        If Mid(TimeOfDay, 1, 5) = "14:00" And D.DayOfWeek <= 5 Then
            Form2.Show()
        End If
   Dim S As Date = Now
        If Mid(TimeOfDay, 1, 5) = "18:00" And D.DayOfWeek <= 5 Then
            Form2.Show()
        End If

Решение задачи: «Открытие формы по таймеру»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim path As String = "D:\\Test"
        Dim watcher1 As New FileSystemWatcher(path)
        watcher1.NotifyFilter = NotifyFilters.FileName
        AddHandler watcher1.Created, AddressOf watcher_Created
        watcher1.EnableRaisingEvents = True
    End Sub
 
    Private Sub watcher_Created(sender As Object, e As FileSystemEventArgs)
        If Label1.InvokeRequired Then
            Label1.Invoke(Sub()
                              Label1.Text = "Новый файл в папке: " & e.Name & " Добавлен " & Now.Date & " в " & Now.ToShortTimeString
                          End Sub)
        End If
    End Sub
                        