home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1996 November / PCPRO1196.ISO / code / WinInt / listing4.txt < prev   
Encoding:
Text File  |  1996-08-28  |  143 b   |  7 lines
  1. Private Sub Command4_Click()
  2. Dim fred As Object
  3. Set fred = CreateObject("Shell.Application")
  4. fred.MinimizeAll
  5. Set fred = Nothing
  6. End Sub
  7.