Threading og invoke

Jeg har været ved at teste lidt med threads og BeginInvoke

Den måde jeg indtil videre har brugt, når jeg skal bruge en control

Så har det været sådan her:

Delegate Sub Progress()

    Private Sub AddValueProgressBar()
        If Not ProgressBar1.Maximum = ProgressBar1.Value + 1 Then
            ProgressBar1.Value += 1
        End If
    End Sub

Og så inde i den ny oprettede thread
ProgressBar1.BeginInvoke(New Progress(AddressOf AddValueProgressBar))

Det virker også fint indtil videre.
Mit spørgsmål er så om det er en lang og træls måde jeg er igang med, da det vil kræve jeg har en ekstra sub til hvergang jeg skal bruge en control. Er der en nemmere måde?