[REPOST] Run Shared Sub In new thread from another Class

See more:

VB

I seem to be having problems when trying to run the shared sub from another class in my form1 application. The code works flawless when its called directly but when i try to multi thread the controls on form1 will not update.


The shared function and sub

Public Shared Function FileCount(PathName As String) As Long
        Try
            Dim FSO As New FileSystemObject
            Dim fld As Folder
            If FSO.FolderExists(PathName) Then
                fld = FSO.GetFolder(PathName)
                FileCount = fld.Files.Count
            End If
            Return FileCount
        Catch ex As DirectoryNotFoundException
        End Try
    End Function 'Calculate File Count

    Public Shared Sub StartNewScan(ByVal FilePath As String)
        Dim Allfile As String = "*.*"
        Dim FFcount As Long
        Dim MyFolderSize As Long
        Dim FullPath As String
        Using fse As New FindFiles.FileSystemEnumerator(FilePath, Allfile, True)
            Dim ien As IEnumerator(Of FileInfo) = fse.Matches().GetEnumerator()
            ien.Dispose()
            For Each fi As FileInfo In fse.Matches()
                FFcount += CStr(FileCount(fi.DirectoryName)).Length
                Form1.Label3.Text = CStr( "File Count:" & FFcount)
                MyFolderSize += fi.Length
                FullPath = fi.FullName
                Form1.Label4.Text = "File Path:" & FullPath
            Next
        End Using
    End Sub

I am trying to call the shared sub in form1 like so

Dim StartSharedSub as new threading.thread(addressof Startnewscan)
startsharedsub.start()

I am aware of delegates and that it may be necessary in my case to use that to update my UI controls but I am confused how to implement it in my case.

thank you in advance