Private Declare Function SHAddToRecentDocs Lib "Shell32"(ByVal lFlags As Long, ByVal lPv As Long) As LongPrivate Sub Form_Load()SHAddToRecentDocs 0, 0End Sub