Vb.net backgroundworker failing

See more:

VB

.NET4

Being a bit dumb, I'm struggling to get a simple BackGroundWorker example working so I can start thinking about how to add it to my application. I've tried many examples from online but can't seem to get the BackGroundWorker to start. The following code is the simplest example I can find to get started with, but the DoWork never starts. I don't get any errors either. Please can someone advise what I am doing wrong? Many thanks in advance.

What I have tried:

Imports System.ComponentModel

Public Class Form1
    Private Sub startAsyncButton_Click(sender As Object, e As EventArgs) Handles startAsyncButton.Click

        Try
            If BackgroundWorker1.IsBusy <> True Then
                BackgroundWorker1.RunWorkerAsync()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub cancelAsyncButton_Click(sender As Object, e As EventArgs) Handles cancelAsyncButton.Click
        If BackgroundWorker1.WorkerSupportsCancellation = True Then
            BackgroundWorker1.CancelAsync()
        End If
    End Sub

    Public Sub New()
        InitializeComponent()
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
    End Sub

    Private Sub backgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs)

        Try
            Dim worker As BackgroundWorker = TryCast(sender, BackgroundWorker)

            For i As Integer = 1 To 10

                If worker.CancellationPending = True Then
                    e.Cancel = True
                    Exit For
                Else
                    System.Threading.Thread.Sleep(1000)
                    worker.ReportProgress(i * 10)
                End If
            Next

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Private Sub backgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As ProgressChangedEventArgs)
        resultLabel.Text = (e.ProgressPercentage.ToString() & "%")
    End Sub

    Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs)
        If e.Cancelled = True Then
            resultLabel.Text = "Canceled!"
        ElseIf e.[Error] IsNot Nothing Then
            resultLabel.Text = "Error: " & e.[Error].Message
        Else
            resultLabel.Text = "Done!"
        End If
    End Sub

End Class