انتخاب آدرس عکس از Listbox

[amir200h]

سلام به همه ی دوستان
می خواستم بپرسم که میشه این کد رو بهتر نوشت
چون تعداد موضوعات زیاده من نمی تونم برای هر موضوع کدی بنویسم تا عکس رو لود کنه
مثلا اگه کاربر بر روی یکی از موضوعات لیست کلیک کرد و listindex برابر با 10 بود عکس شماره 10 لود بشه و اگه 5 بود عکس شماره 5 و ... .
دوستان اگه راه حل بهتری بلدن لطفا کمک کنن

[mpmsoft]

ساده ترین روش

Private Sub List1_Click()
Image1.Picture = LoadPicture(App.Path + "\picture\" & List1.ListIndex & ".jpg")
End Sub