Оптимизировать код - VB

Формулировка задачи:

Пишу небольшую программу для личных нужд на VB6. Надо реализовать несколько одинаковых контролов на форме, их надо перетаскивать с места на место, загружать в них картинку, и т.д. Оформил эти контролы как массив контролов. Но как правильно написать к ним обработку событий? Я делаю через select case, например процедура загрузки рисунка в картинку через дабл клик:

Private Sub Image1_DblClick(Index As Integer)
Select Case Index
Case 0
Image1(0).Picture = LoadPicture("D:\Install\BASICS\qp-rev.jpg")
Case 1
Image1(1).Picture = LoadPicture("D:\Install\BASICS\10w-rev.jpg")
Case 2
Image1(2).Picture = LoadPicture("D:\Install\BASICS\1r.jpg")
Case 3
Image1(3).Picture = LoadPicture("D:\Install\BASICS\21.jpg")
Case 4
Image1(4).Picture = LoadPicture("D:\Install\BASICS\10c-rev.jpg")
Case 5
Image1(5).Picture = LoadPicture("D:\Install\BASICS\kic.jpg")
Case 6
Image1(6).Picture = LoadPicture("D:\Install\BASICS\4p.jpg")
Case 7
Image1(7).Picture = LoadPicture("D:\Install\BASICS\6w-rev.jpg")
Case 8
Image1(8).Picture = LoadPicture("D:\Install\BASICS\2p-rev.jpg")
Case 9
Image1(9).Picture = LoadPicture("D:\Install\BASICS\qs-rev.jpg")
End Select
End Sub

Правильно ли я делаю? или можно как то иначе написать этот код, более оптимизировано?

Решение задачи: «Оптимизировать код»

textual
                            Листинг программы 
                        

                            Private Sub Image1_DblClick(Index As Integer)
Dim Im(10) as string
Im(0)= "D:\Install\BASICS\qp-rev.jpg"
Im(1)= "D:\Install\BASICS\10w-rev.jpg"
Im(2)= "D:\Install\BASICS\1r.jpg"
Im(3)= "D:\Install\BASICS\21.jpg"
Im(4)= "D:\Install\BASICS\10c-rev.jpg"
Im(5)= "D:\Install\BASICS\kic.jpg"
Im(6)= "D:\Install\BASICS\4p.jpg"
Im(7)= "D:\Install\BASICS\6w-rev.jpg"
Im(8)= "D:\Install\BASICS\2p-rev.jpg"
Im(9)= "D:\Install\BASICS\qs-rev.jpg"
Image1(Index).Picture = LoadPicture(Im(Index))
End Sub
                        