Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)
Const SHARD_PATH = 2 ' Skapa genväg till en fil

Private Sub Form_Load()
' Lägger till c:\autoexec.bat i "Senaste Dokument"
Call SHAddToRecentDocs(SHARD_PATH, "c:\autoexec.bat")
End Sub