Delegate Sub ListboxAddRange_Delegate(ByVal text As String)
 
        ' The delegates subroutine.
        Public Sub ListboxAddRange(ByVal text As String)
            If Form1.InvokeRequired Then
                Dim MyDelegate As New ListboxAddRange_Delegate(AddressOf _
                  ListboxAddRange)
                Form1.Invoke(MyDelegate, New Object() {[text]})
            Else
                Form1.ListView1.Items.Add(text)
            End If
        End Sub

ListboxAddRange("Test")

Form1.InvokeRequired

Dim MyDelegate As New ListboxAddRange_Delegate(AddressOf ListboxAddRange)
Form1.Invoke(MyDelegate, New Object() {[text]})