文/刘红军

　　“开始”按钮的“文档”菜单中记录着你打开过的各种文档，如Word文档、图片文件、以及保存过的网页文件等。如果这台计算机是公用的，那么你最近操作过的文件别人会一目了然。如何清除文档菜单内容呢？

　　这些内容其实是快捷方式，位于Windows系统目录的Recent文件夹(默认是隐藏的)下，可以直接打开资源管理器删掉。这里介绍如何通过VB编程实现，程序包括一个窗体和一个模块，在窗体中添加两个按钮和一个标签(名称：LblResult)。

　　1、模块中的代码：

　　'声明API函数

　　Public Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal PV As String)

　　'自定义函数，不成功则返回0

　　Public Function ClearDocumentsMenu() As Boolean

　　SHAddToRecentDocs 2, vbNullString

　　ClearDocumentsMenu = Err.LastDllError = 0

　　End Function

　　2、窗体中的代码:

　　Option Explicit

　　Private Sub Command1_Click()

　　Dim rc, rc1 As Long

　　'清空文档菜单

　　If ClearDocumentsMenu() = True Then

　　LblResult = "清空成功!"

　　Else

　　LblResult = "清空失败!"

　　End If

　　End Sub

　　Private Sub Command2_Click()

　　Unload Me

　　End Sub

　　说明：程序在Windows 98 SE，VB6.0下调试通过，有兴趣的朋友不妨一试。