ListDocW9X

Declare Sub SHAddToRecentDocs Lib "shell32.dll" _
(ByVal uFlags As Long, ByVal pv As String)
'Ora che la funzione e' stata dichiarata, il seguente codice puo

'essere usato per aggiungere un file alla lista.

Dim NewFile as String
NewFile="c:\newfile.file"
Call SHAddToRecentDocs(2,NewFile)
'E anche possibile cancellare la lista di file usando il

'seguente codice.

Call SHAddToRecentDocs(2,vbNullString)