home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / runfix / runfix.bas < prev    next >
Encoding:
BASIC Source File  |  1995-05-09  |  221 b   |  9 lines
  1.  
  2. Sub Main ()
  3.     AppActivate "Program Manager"       ' select ProgMan
  4.     SendKeys "%{ }{Down 3}{Enter}", -1  ' sends Minimize keys to ProgMan
  5.     x = Shell(Command$, 1)              ' launch app
  6.     End
  7. End Sub
  8.  
  9.