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