Einen sogenannten Splash-Screen, wie es beispielsweise
    beim Start von Visual Basic zu sehen ist, ist recht einfach,
    wie das nachfolgende Beispiel zeigt:

ERFORDERLICHE OBJEKTE

   2 Forms (frmSplash, frmMain)

   frmSplash:
    1 Timer (Timer1)
    1 PictureBox (Picture1)

   frmMain:
    1 CommandButton (Command1)

FORM-CODE (frmSplash)

   Private Sub Form_Load()
      Bilddatei = App.Path
      If Right(Bilddatei, 1) <> "\" Then _
         Bilddatei = Bilddatei & "\"
      Bilddatei = Bilddatei & "splash.jpg"
      Picture1.Picture = LoadPicture(Bilddatei)
      With Me
         .Height = Picture1.Height
         .Width = Picture1.Width
         .MousePointer = 11
      End With
      Timer1.Enabled = False
      'Andere Aktionen (Daten laden)
      Timer1.Interval = 2000
      Timer1.Enabled = True
   End Sub

 FORM-CODE (frmMain)

   Private Sub Command1_Click()
      Unload Me
   End Sub