Setting Application Launch Conditions

[tEkHEd]

Hi there..

I am trying to set some launch conditions in a windows form and if the conditions are false automatically close the form.

I thought that i could use something like:

    Public Sub New()
        MyBase.New()

        'This call is required by the Windows Form Designer.
        InitializeComponent()
        Me.Show()
        'Add any initialization after the InitializeComponent() call
        Dim t As Boolean = False

        If t <> True Then Me.Close()

    End Sub

This however just pops up my form and then hangs (I can't close the form by clicking on the X in the control box)

Can anyone think of a way that I can verify certain criteria within the form that will automatically close if not met?

Thanks in adv..

 

[tEkHEd]

Ok I kind of solved this in a dirty way.. I basically created a new module, put the launch conditions in the sub main of the module as following:

Sub main()

        If EnsureConfig() Then
            Dim f As Form = New Splash
            f.ShowDialog()
        End If

    End Sub

this works ok, but would still like to understand if this action can be carried out within the same class??