Menghapus Seluruh File di Recent Document

Dibawah ini merupakan procedure yang digunakan untuk menghapus seluruh file di 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

Semoga Bermanfaat .