Многопоточность: Ошибка доступа к Label

Imports System.Threading
Imports VB = Microsoft.VisualBasic
 
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Thread1 As Thread
 
 
#Region "Код, который пишем мы сами"
 
    Public Sub SleepVBNET()
        Dim Seconds As Integer = 100
        ' процедура ожидания 10 сек
        Dim Start As Integer
        Start = VB.Timer
        ' ожидание в цикле
        Do While VB.Timer < Start + Seconds
            Label1.Text = "Текущее время = " & VB.TimeOfDay
        Loop
        Label1.Text = "Процесс завершен"
    End Sub
 
 
 
    Private Sub ButtonStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonStart.Click
        ' запуск параллельного потока
        Thread1 = New Thread(AddressOf SleepVBNET)
        Thread1.Start()
    End Sub
 
    Private Sub ButtonAbort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonAbort.Click
        ' аварийное завершение потока
        Thread1.Abort()
    End Sub
 
#End Region
End Class

Label1.Invoke(Sub() Label1.Text = "Текущее время = " & VB.TimeOfDay)
 
Label1.Invoke(Sub() Label1.Text = "Процесс завершен")