Public Class Form1
 
    Private t As New System.Threading.Thread(AddressOf TestDel)
    Private t1 As New System.Threading.Thread(AddressOf test)
 
 
    Private Delegate Sub d()
 
 
    Private Sub test()
        Dim f As New Form
        f.Show()
    End Sub
 
    Private Sub TestDel()
        Dim Del As New d(AddressOf test)
        Me.Invoke(Del)
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        t1.Start()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        t.Start()
    End Sub
End Class