I want a logotype that is fading away under i.e. 2 seconds when I start
my application. Does anyone know do this?

Regards
Thomas

In the site of Dev Ashish you could find how you can replace the standard MS
Access splash screen, maybe you want to try this approach:
---------------------------------
The Access Web
(http://home.att.net/~dashish)

Alberto Borbolla
Microsoft MVP
Tecnologia en Sistemas
MEXICO

(replace "X" to send mail)

Create several versions of your logo that fade a bit with each iteration.

logo1, logo2, logo3, etc.

Put an image control on a form. Set the timer on the form for every second.
On the timer event, change the value of the image.

I've used PowerPoint (in Office 4.3) to insert an OLE object that uses some
of the slide effects for an opening screen. While I have not done it in
Office 97, I don't think there would be any problem.
-----
Arvin Meyer

<<Create several versions of your logo that fade a bit with each iteration.

logo1, logo2, logo3, etc.

Put an image control on a form. Set the timer on the form for every second.
On the timer event, change the value of the image.>>

    That's a very good method... I got the following form Cary Prague's
sample software called CheckWriter (this is included in all of his excellent
textbooks).  Althought I chose to use it to change the captions, he uses it
to call in various mpgs serially via the timer event, in effect making the
egg on his splashscreen type a piano via hand "motions":

Private Sub Form_Load()
Forms![xSplash Screen].TimerInterval = 160
NumTime = -1
End Sub

Private Sub Form_Timer()
Select Case NumTime
  Case 1
    Forms![xSplash Screen]![Text5].Caption = "Zf"
  Case 2
    Forms![xSplash Screen]![Text5].Caption = "Zfi"
  Case 3
    Forms![xSplash Screen]![Text5].Caption = "Zfil"
    Forms![xSplash Screen]![Text19].Caption = "Copyright ?1997 Alberto A.
Borges, MD - All Rights Reserved"
  Case 4
    Forms![xSplash Screen]![Text5].Caption = "Zfile"
  Case 5
    Forms![xSplash Screen]![Text5].Caption = "Zfile "
  Case 6
    Forms![xSplash Screen]![Text5].Caption = "Zfile M"
    Forms![xSplash Screen]![Text22].Caption = "FREEWARE VERSION"
  Case 7
    Forms![xSplash Screen]![Text5].Caption = "Zfile Me"
  Case 8
    Forms![xSplash Screen]![Text5].Caption = "Zfile Med"
  Case 9
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medi"
  Case 10
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medic"
  Case 11
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medica"
  Case 12
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical"
  Case 13
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical "
  Case 14
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical D"
  Case 15
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Da"
  Case 16
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Dat"
  Case 17
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Data"
  Case 18
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Datab"
  Case 19
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Databa"
  Case 20
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Databas"
  Case 21
    Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database"
  Case 22
   Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database "
  Case 23
   Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database - 1997"
  Case 24
   Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database - 1997"
  Case 25
   Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database - 1997"
  Case 26
   Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database - 1997"
  Case 27
   Forms![xSplash Screen]![Text5].Caption = "Zfile Medical Database - 1997"
  Case 28
    DoCmd.Close A_FORM, "xSplash Screen"
    DoCmd.OpenForm "*SWITCHBOARD-MAIN"
 End Select
 NumTime = NumTime + 1
End Sub

                                                                I hope that
this helps!  Al.