Creating Splash Screen in MS Office 2003

[Siddharth Rout]

Good point Rob.

Here is another example of creating a splash screen using Animation and The Timer API

Please unzip all the files in C:\temp before running.

Edit: I have used two images. If you want you can use more than that. Simply name the images 0.Gif, 1.Gif, 2.Gif and so on... Then Change the code in module to

Sub TimerProc(ByVal HWnd As Long, ByVal uMsg As Long, _
ByVal nIDEvent As Long, ByVal dwTimer As Long)
    '~~> You can use bmp, gif etc...
    UserForm1.Image1.Picture = LoadPicture("C:\temp\" & Counter & ".bmp")
    Counter = Counter + 1
    If Counter = 10 Then
        EndTimer
        Unload UserForm1
    End If
End Sub