Option Explicit Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As Any) Sub EmptyRecentDocument() SHAddToRecentDocs 0, CLng(0) End Sub
Private Sub Command1_Click() EmptyRecentDocument End Sub
Semoga Bermanfaat .
No comments:
Post a Comment