پرسش راهنمایی در مورد نمایش عکس

[میثم مقدم نیا]

سلام

در فایل پیوست میخوام داخل Userform با انتخاب نام از Listbox عکسی را نمایش دهم که با کد زیر این کار رو انجام میدم

Private Sub ListBox1_Click()

If ListBox1.ListIndex = 0 Then
    Image1.Picture = LoadPicture("E:\test\علي محمد.jpg")
End If

If ListBox1.ListIndex = 1 Then
    Image1.Picture = LoadPicture("E:\test\جواد صادقي.jpg")
End If

If ListBox1.ListIndex = 2 Then
    Image1.Picture = LoadPicture("E:\test\رضا ملکي.jpg")
End If

If ListBox1.ListIndex = 3 Then
    Image1.Picture = LoadPicture("E:\test\خليل وثاقي.jpg")
End If 

ولی در فایل پیوست دادههای Listbox متغیر است حالا من این کد را چطور تغییر بدم که بتونم عکس ها را با انتخاب نام کاربر به نمایش در بیاورم

[میثم مقدم نیا]

سلام
دوستان و اساتید عزیز کسی راهکاری برای این موضوع نداشت

[میثم مقدم نیا]

سلام
دوستان کسی راهکاری برای این موضوع نداره
یا روش جایگزین