从后台线程更新许多GUI元素

Question

我在我的程序中使用后台工作器，我想更新许多元素或从GUI线程访问许多元素。 （比如标签文本，richtextbox文本等）很多单词。

我知道我必须像以下一样使用Invoke：

 Private Sub ClearListViewItems(ByVal [Listview] As ListView)

    If [Listview].InvokeRequired Then
        Dim myDelegate As New ListViewClearItemsDelegate(AddressOf ClearListViewItems)
        Me.Invoke(myDelegate, New Object() {[Listview]})
    Else
        [Listview].Items.Clear()
    End If
End Sub

编写这么多函数来访问我的GUI元素并不方便。

有没有更有效的方法来处理这个问题？ 或者更简短的方式？

谢谢