...
Imports System.Threading
Imports System.Runtime.Remoting.Messaging
...
Delegate Sub myD()
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim path As String = My.Application.Info.DirectoryPath ' Это то, что мы обсуждали вчера!
ListView1.Visible = False
WebBrowser1.Visible = True
Dim myP As String = path & "\index.html"
WebBrowser1.Navigate(myP)
Dim d As myD = AddressOf Method_New ' Как раз та самая процедура перенастройки листов
Dim AsCB As AsyncCallback = AddressOf AsyncCallBack_Method
Dim SyncC = WindowsFormsSynchronizationContext.Current
d.BeginInvoke(AsCB, SyncC)
End Sub
Public Sub AsyncCallBack_Method(ByVal IArg As IAsyncResult)
Dim AsContext As SynchronizationContext = IArg.AsyncState
Dim Arg As AsyncResult
Arg = IArg
Arg.AsyncDelegate.EndInvoke(IArg)
Dim SorPCB As SendOrPostCallback = AddressOf PP_CallBack
AsContext.Post(SorPCB, Nothing)
End Sub
Public Sub PP_CallBack()
MsgBox("Process complete!")
End Sub