Nyitókép megjelenítése program indulásának idejére

Mellékelt példában egy Timer komponens segítségével szimuláljuk a lassú indulást. Form1-re felteszünk egy Timer komponenst, mely egy másodpercenként hozza létre az Elapsed eseményt. Itt az első négy másodpercben csak a progressBar1 kontrol kijelzőjének értékét növeljük, majd az ötödik másodpercben meghívva a Dispose függvényt, rendelkezünk arról, hogy a Form1 megszűnjön létezni, és egyúttal létrehozzuk és megjelenítjük a Form2-t, mely alkalmazásunk fő ablaka lesz.

  Private Sub timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles timer1.Elapsed
    count += 1
    Select Case count
      Case 5
        Dispose(False)
        Dim f2 As Form2
        f2 = New Form2()
        f2.Show()
      Case Else
        progressBar1.PerformStep()
        Application.DoEvents()
    End Select
  End Sub 'timer1_Elapsed

Form2 bezárásakor gondoskodnunk kell arról, hogy alkalmazásunk futása is véget érjen. Ehhez a Closed eseményt használjuk fel, melynél meghívjuk az Application osztály Exit függvényét.

  Private Sub Form2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
    Application.Exit()
  End Sub 'Form2_Closed