Public Sub New()

        ' Chiamata richiesta da Progettazione Windows Form.
        InitializeComponent()

        ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
        timer = New Timer
        timer.Interval = 2000
        timer.Enabled = True

        bStartInitFormMain = False

    End Sub

    Private Sub timer_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timer.Tick
        If bStartInitFormMain Then
            bStartInitFormMain = False
            timer.Enabled = False

            InitFormMain()

            Me.Hide()
            frmMain.Show()
            Me.Close()

        End If
    End Sub