Parsi Coders

سلام
ما دوتا لیست باکس داریم در لیست باکس اولی چندتا اسم هست و در لیست باکس دومی چندتا لینک هست (تعداد آیتم های هرجفت لیست باکس با هم مساوی هست)
میخوام اگه هرکدوم از آیتم لیست باکس اولی روش کلیک شد , مساوی با با همان آیتم را از لیست باکس دومی (که لینک هست) در وب بروزر باز شه! 

Private Sub List1_Click()
Dim amin As String
amin = List1.ListIndex
Parsicoders = "http://" + List2.List(amin)
Call Shell("cmd /c start " + Parsicoders, vbHide)
End Sub