VB6 Code - Menghapus Seluruh File Recent Document

Di bawah ini merupakan procedure VB6 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 VB6 di atas:

Private Sub Command1_Click()
    EmptyRecentDocument
End Sub