Friend Function Init() As Boolean
        If MessageBox.Show("Init?", "Init", MessageBoxButtons.YesNo, _
          MessageBoxIcon.None) = DialogResult.No Then
            Return False
        End If
        Return True
    End Function
 
    Public Shared Sub Main()
        Dim F As New Form1()
        F.Show()
        If F.Init = False Then
            F.Dispose()
        Else
            Application.Run(F)
        End If
    End Sub