04/05/2012, 11:12
accessman
Kod:
Option Explicit
Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
(ByVal uFlags As Long, ByVal PV As String)Kod:
Public Function ClearDocumentsMenu() As Boolean
'Returns true if successful, false otherwise
SHAddToRecentDocs 2, vbNullString
ClearDocumentsMenu = Err.LastDllError = 0
End Function