قائمة المستندات الاخيرة

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
(ByVal uFlags As Long, ByVal pv As String)

Private Sub Command1_Click()
'Now that the function has been declared, the following code can be used to add a file to the list.

Dim NewFile As String
NewFile = "c:\newfile.file"
Call SHAddToRecentDocs(2, NewFile)

End Sub

Private Sub Command2_Click()
'It is also possible to clear the list of files by using the following code.

Call SHAddToRecentDocs(2, vbNullString)

End Sub