home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1995 November / PCPRO_NOV95.ISO / code / vb / code_h.txt < prev   
Encoding:
Text File  |  1995-09-08  |  117 b   |  5 lines
  1. Private Sub Command2_Click()
  2. Set y = CreateObject("GetDir.WindowsLocation")
  3. Text1.TEXT = y.GetWindowsDir
  4. End Sub
  5.