AnimateForm.zip is a database containing a Class that has functionality to animate a Form during opening and closing.

Demonstrates use of WithEvents to sink several events on a Form.

Version 2

*** UNABLE TO COMPLETE FUNCTIONALITY FOR CLOSING FORMS ***  There is a Boolean property of this class to signal whether to apply the Animation function to the Form as it closes. Since a Close event is also generated when switching from Form to Design View this leads to a problem. Obviously we do not want to apply an Animation and then close the Form when the user merely wants to switch from Form to Design View. To get around this situation I have been placing a custom function in the OnAction property of all of the relevant CommandBarControl objects that can be used to switch views. Unfortunately it seems Access will not allow us to set the OnAction property for the CommandBarControl object of type msoControlSplitButtonPopup. This is the control you see on the standard Form Toolbar just under the Standard Menu Bar. The control at the left most edge of the Screen is really a dual function control. If you click on the small arrow a drop down appears with the choices of switching Form views to Design view etc.  The Design View button in the dropdown portion  is accessible. The default choice for this control, which appears as the button with the Design icon immediately to the left of the small arrow, is not accessible. If anyone has a workaround please contact me directly. For now I am shelving this project. It works fine for applying Animations to Form open events but I am very unhappy that I cannot find away around my problem with seperating a Close event from a Close to Design View event. :(

Version History

2.0

Added 6 types of Animated Wipes

Added controls to allow you to test various type of Animated Wipes at different speeds.

Cleaned up code

1.0

Removed logic to perform animation using the Form's Timer event. Complicated the logic too much!