آدرس دهی به اجزاء Listbox

[loads]

سلام دوستان
چجوریمیتونم یه سری اسامی رو وارد listbox کنم و به هر کدومشون آدرس باز شدن یه سند word رو بدم مثلا با کلیک کردن اسم document1 از داخل listbox فایل word واقع در آدرس
c:\document.doc باز بشه

[saina2006]

Option Explicit
Dim document As New Shell
Private Sub Form_Load()
List1.AddItem "Document 1"
List1.AddItem "Document 2"
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex = 1
Case 0
document.Open "Address of document 1"
Case 1
document.Open "Address of document 2"
End Select
End Sub

البته اول باید Microsoft shell control and Automatin را برای اجرای فایل به برنامه اضافه کنی

[loads]

جناب saina2006 عزیز با عرض پوزش چون مبتدی هستم یکم بیشتر نیاز به کمک دارم . آدرس فایل رو با استفاده از چه دستوری وچجوری باید وارد کنم مثلا آدرس یکی از فایلام اینه c:\document1.doc

[saina2006]

Option Explicit
Dim document As New Shell
Private Sub Form_Load()
List1.AddItem "Document 1"
List1.AddItem "Document 2"
End Sub

Private Sub List1_Click()
Select Case List1.ListIndex = 1
Case 0
document.Open "c:\document1.doc"
Case 1
document.Open "Address of document 2"
End Select
End Sub
در قسمت که نوشته Address of document
توجه کن بدون اضافه کردن Microsoft shell control and Automatin برنامه کار نمی کنه