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

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