Public Sub Clear()
   SHAddToRecentDocs 0, ByVal 0&amp;
End Sub


Private Function PathFromPidl(ByVal pidl As Long) As String
Dim sPath As String
Dim lR As Long
   sPath = String$(MAX_PATH, 0)
   lR = SHGetPathFromIDList(pidl, sPath)
   If lR &lt;&gt; 0 Then
      PathFromPidl = Left$(sPath, lstrlen(sPath))
   End If
End Function

</pre><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p><p>&#160;</p></td><td class="rightbar" valign="top" bgcolor="#C2BEB1">
<!-- No right bar content currently d