ninlar

Imports System.Threading

Public Class Form1

    Private Delegate Sub NoParams()


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tThread As New Thread(New ParameterizedThreadStart(AddressOf ListenThread))

        tThread.Start(Me)

    End Sub

    Private Sub ListenThread(ByVal frmMain As Object)
        Dim dlgMain As Form = Nothing

        dlgMain = CType(frmMain, Form)

        Thread.Sleep(2000)
        dlgMain.Invoke(New NoParams(AddressOf ShowMsgBox))


    End Sub

    Private Sub ShowMsgBox()
        MessageBox.Show("This is a messagebox that was created from a thread")
    End Sub
End Class