devxlogo

Close Your Windows the Windows 95 Way

Close Your Windows the Windows 95 Way

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.

devx-admin

Share the Post: