Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
 
        modThread.lstBox = Me.ListBox1
        modThread.Text = Now
 
        Dim myThread As New System.Threading.Thread(AddressOf _
          modThread.UpdateList)
        myThread.Start()
 
    End Sub
End Class

Public Delegate Sub ListBoxUpdate(ByVal Text As String)
 
Module modThread
 
    Private _lstBox As ListBox
    Private _Text As String
 
    Public Property lstBox As ListBox
        Get
            Return _lstBox
        End Get
        Set(value As ListBox)
            _lstBox = value
        End Set
    End Property
 
    Public Property Text As String
        Get
            Return _Text
        End Get
        Set(value As String)
            _Text = value
        End Set
    End Property
 
    Public Sub UpdateList()
        If _lstBox.InvokeRequired Then
            _lstBox.Invoke(New ListBoxUpdate(AddressOf UpdateList), _Text)
        Else
            _lstBox.Items.Add(_Text)
        End If
    End Sub
 
End Module

EALA FREYA FRESENA