VB Code:
  1. Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As Any)
  2.  
  3. ' USAGE
  4.  
  5.    SHAddToRecentDocs 0, CLng(0)