Обращение из потока к контролу

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Progress()
End Sub

    Public Sub Progress()
        Dim thrd As Thread 
        thrd = New Thread(AddressOf runPr)
        thrd.Start()
    End Sub
 
    Public Sub runPr()
        'MsgBox("тест") 'месседж бокс срабатывает, т.е. программа до этого шага доходит
        Form1.PrBar.Visible = True 'тут ничего не происходит
    End Sub

'Код из контрола
Dim Frm As Object = Form1
 
    Public Sub runPr()
        'MsgBox("тест")
        Frm.PrBar.Visible = True' исключение, что нет такого контрола
    End Sub

Module module1
 
    Public Frm As Form1
 
    Public Sub Progress()
        Frm = Form1
        Dim thrd As Thread
        thrd = New Thread(AddressOf runPr)
        thrd.Start()
    End Sub
 
    Public Sub runPr()
        'MsgBox("тест") 'месседж бокс срабатывает, т.е. программа до этого шага доходит
        'Form1.PrBar.Visible = True 'тут ничего не происходит
        Frm.Invoke(New _delegate(AddressOf ShowPrBar))
    End Sub
 
    Private Delegate Sub _delegate()
 
    Private Sub ShowPrBar()
        Frm.prbar.Visible = True
    End Sub
 
 
End Module

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown ' вместо Load
        Progress()
    End Sub

Public Frm As Form1
 Frm.Invoke(New _delegate(AddressOf ShowPrBar))
Private Delegate Sub _delegate()

Public Permission As Boolean
 
.....
Permission=True

Module Module1
    Private _main As SynchronizationContext
 
    Public Sub Progress()
        _main = SynchronizationContext.Current
        Dim thrd As Thread
        thrd = New Thread(AddressOf runPr)
        thrd.Start()
    End Sub
 
    Public Sub runPr()
        _main.Send(AddressOf ShowPrBar, True)
    End Sub
 
    Private Sub ShowPrBar(ByVal v As Boolean)
        Form1.PrBar.Visible = v
    End Sub
End Module