Acidburn
Make sure you drop the complete baswipe module into your modules section.
Then this is what I use in my forms close event...
Dim lngIncrement As Long
Dim lngOpt As Long
lngOpt = 5
If lngOpt >= 0 Then
lngIncrement = 100
Call WipeEffect(Me, lngOpt, lngIncrement)
End If
If you want a different effect change the value of lngOpt.
Candice has used the option buttons to show the different effect that can be done. You don't need the option boxes. Just hard code the close effect as done above. If you use 'lngOpt = 1' then the form will close from the bottom up ect..
HTH
Tom