Windows Belgeler Mönüsüne Dosya Eklemek

(Modul)(General)(Declaration)
Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)

Private Sub Command1_Click()
Dim Ekle As String
Ekle = "c:\EklenecekDosya.txt"
SHAddToRecentDocs 2, Ekle
End Sub