Public Class Form1



    Private Sub Button1_Click(sender ～) Handles Button1.Click

        Dim f As New Form2

        f.Show()

    End Sub





Public Class Form2



'２つのBackGroudWorkerはDesignerで定義 



    Private Sub Form2_Load(sender ～) Handles MyBase.Load

       　bg.RunWorkAsync()

    End Sub



    Private Sub bg_DoWork(sender ～) handles bg.DoWork

       　～

    End Sub



    Private Sub bg_RunWorkerCompleted(～) handles bg.RunWorkCompleted

        ～

       　bg2.RunWorkAsync()

    End Sub



    Private Sub bg2_DoWork(sender ～) handles bg2.DoWork

       　～

    End Sub



    Private Sub bg2_RunWorkerCompleted(～) handles bg2.RunWorkCompleted

       　Me.Close

    End Sub