Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim a As New Threading.Thread(AddressOf Init)
        a.Start()
    End Sub
 
    Private Sub Init()
        If MessageBox.Show("Init?", "Init", MessageBoxButtons.YesNo, _
          MessageBoxIcon.None) = DialogResult.No Then
            Me.Close()
        End If
        Threading.Thread.CurrentThread.Abort()
    End Sub