Place this code in the declaration section of a module:
Public Sub Win95Shrivel(xForm As Form) ' Sets the form's window status to ' minimized xForm.WindowState = 1End Sub
Call it from the Unload procedure within a Form:
Private Sub Form_Unload(Cancel As _ Integer) Win95Shrivel MeEnd Sub
Each time a form is unloaded, the form appears to fade to the task bar and then disappears. This tip alsoworks on a Windows 3.1x machine as well.