เพิ่มไฟล์จากโปรแกรมเราใน Recent Documents

เมื่อคุณเปิดไฟล์จากโปรแกรมเช่น MS Word ฯลฯ ไฟล์ที่เราเปิดก็จะเข้าไปอยู่ในเมนู Documents ใน Start Menu
ดังนั้นถ้าหากว่าอยากให้โปรแกรมเราทำได้บ้าง เราก็จะใช้โค้ดลักษณะนี้ครับ

Private Const SHARD_PATH = &H2&
Private Declare Function SHAddToRecentDocs Lib "Shell32.dll" (ByVal dwflags As Long, ByVal dwdata As String) As Long

Private Sub Command1_Click()
SHAddToRecentDocs SHARD_PATH, txtFile.Text
End Sub

ฟอร์มจะประกอบด้วย ประกอบไปด้วยฟอร์มที่มีปุ่มชื่อ Command1 กับ เท็คบอกซ์ชื่อ txtFile
เมื่อกดปุ่ม Command1 ชื่อไฟล์ที่อยู่ใน txtFile ก็จะเข้าไปอยู่ใน เมนู Documents (Recent Documents)
ในStart Menu เรียบร้อยครับ