<DllImport("User32.dll", CharSet:=CharSet.Auto)> _
            Public Shared Function ShowWindow(ByVal hWnd As IntPtr, ByVal _
            cmdShow As Short) As Integer
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ShowWindow(Me.Handle, 1)
        Init()
    End Sub
 
    Private Sub Init()
        If MessageBox.Show("Init", "", MessageBoxButtons.YesNo) = _
          DialogResult.No Then
            Me.Close()
        End If
    End Sub