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

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

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 را برای اجرای فایل به برنامه اضافه کنی

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

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 برنامه کار نمی کنه