Option Explicit On
 
Imports System
Imports System.Runtime.InteropServices
Imports System.Threading
 
 
 
Public Class Form1
 
    Dim CANInterface As Class1 = New Class1
    Delegate Sub SetTextCallback([text] As String)
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CANInterface.Main(ListBox1)
    End Sub
 
 
    Sub WriteToListBox(ByVal [text] As String)
 
        If Me.ListBox1.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf WriteToListBox)
            Me.Invoke(d, New Object() {[text]})
        Else
            Me.ListBox1.Items.Add([text])
        End If
    End Sub
 
End Class

Class Class1
 
    ' -------------------------------------------------------------------------
    ' ----------------------
    ' Global variables
    ' -------------------------------------------------------------------------
    ' ----------------------
    Shared rxThread As Thread
    ' -------------------------------------------------------------------------
    ' ----------------------
 
 
    <STAThread()> _
    Sub Main()
        ...
        ' Create and start Rx thread
        rxThread = New Thread(AddressOf RX_Thread)
        rxThread.Start()
    End Sub
 
 
    Sub RX_Thread(TargetListBox As ListBox)
        ...
        Form1.WriteToListBox("Received message")
 
    End Sub
 
End Class