home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 6 Unleashed…sional Reference Edition) / Visual_Basic_6_Unleashed_Professional_Reference_Edition_Sams_1999.iso / Source / CHAP29 / 309X3214.TXT < prev    next >
Encoding:
Text File  |  1998-05-05  |  312 b   |  15 lines
  1.  
  2. Private Function CloseSubkey(lHandle As Long) As Long
  3.  
  4. Dim lonStatus As Long
  5.  
  6. ' Close the key with the handle specified by the
  7. ' lHandle argument.
  8. lonStatus = RegCloseKey(lHandle)
  9.  
  10. ' Return zero if successful, -1 if not successful.
  11. CloseSubkey = 0
  12. If lonStatus Then CloseSubkey = -1
  13.  
  14. End Function
  15.