Delegate Sub ListboxAddRange_Delegate(ByVal text As String)
 
        ' The delegates subroutine.
        Public Sub ListboxAddRange(ByVal text As String)
            If My.Application.OpenForms.Item("Form1").InvokeRequired Then
                Dim MyDelegate As New ListboxAddRange_Delegate(AddressOf _
                  ListboxAddRange)
                My.Application.OpenForms.Item("Form1").Invoke(MyDelegate, New _
                Object() {text})
            Else
                Dim lstv As ListView = My.Application.OpenForms.Item( _
                  "Form1").Controls("Listview1")
                lstv.Items.Add(text)
            End If
        End Sub