Menghapus Seluruh File Recent Document

Di bawah ini merupakan procedure untuk menghapus seluruh yang terdapat pada recent document. Untuk keperluan ini digunakan satu fungsi API yakni SHAddToRecentDocs yang terdapat pada shell32.dll.

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 

Contoh penggunaan procedure di atas

Private Sub Command1_Click() 
    EmptyRecentDocument 
End Sub