VS 2010 Progress bar not updating when BackgroundWorker ReportProgress from module

Public Class Form1
    Private Sub Button1_Click() Handles Button1.Click
        BGW.RunWorkerAsync()
    End Sub
    Private Sub BGW_DoWork() Handles BGW.DoWork
        Dim blnRunInModule As Boolean = False
        For intCount As Integer = 1 To 10
            If blnRunInModule Then
                Module1.MySub(intCount)
            Else
                BGW.ReportProgress(intCount)
            End If
            System.Threading.Thread.Sleep(1000)
        Next
    End Sub
    Private Sub BGW_ProgressChanged() Handles BGW.ProgressChanged
        ProgressBar1.PerformStep()
        Debug.WriteLine("Step executed. Value = " & ProgressBar1.Value)
    End Sub
End Class

Module Module1
    Sub MySub(intCount As Integer)
        Form1.BGW.ReportProgress(intCount)
    End Sub
End Module