Вызов события из потока: ошибка доступа к элементу управления

' Класс
  Public Class ConctionStateType (Of T)
    Private pvalue As T
    Friend Event OnChange(ByVal sender As Object, ByVal e As System.EventArgs)
    Friend Property Value() As T
        Get
            Return pvalue
        End Get
 
        Set(ByVal value As T)
            pvalue = value
            RaiseEvent OnChange(Me, New System.EventArgs)
        End Set
    End Property
  End Class
 
        Dim WithEvents ConnectionAbort As New ConctionStateType(Of boolean)
 
        ' Изменение флага обрыв связи
        Private Sub ConnectionAbort_OnChange(ByVal sender As Object, ByVal e As System.EventArgs) Handles ConnectionAbort.OnChange
        
        If Not(LoadProgram) then
            If ConnectionAbort.Value then
              tbxDataSourLog.text="ОК"
            Else
              tbxDataSourLog.text="не ОК"
            End If
            
        end if

        private Sub MonitorAccess()
            Do While (1=1)
                If My.Computer.Network.Ping("127.0.0.1",500) Then
                    If Not(ConnectionAbort.Value) then
                        ConnectionAbort.Value = True
                    End If
                Else
                    If ConnectionAbort.Value then
                        ConnectionAbort.Value = False
                    End If
                    ConnectionAbort.Value = False
                End If
            Loop
 
        End Sub

                Me.Invoke(Sub()
                              Label1.Text = "Загрузка пакета..."
                              ProgressBar1.Style = ProgressBarStyle.Blocks
                          End Sub)