سوال در مورد لیست باکس

[amir200h]

سلام به همه ی دوستان.
روی فرم 2تا لیست باکس وجود داره که وقتی روی لیست 1 کلیک می کنی با توجه به شماره ایدنکسش یک پیغام میده به این صورت

Private Sub List1_Click()
If List1.ListIndex = 0 Then MsgBox ("salam")
If List1.ListIndex = 1 Then MsgBox ("salam1")
If List1.ListIndex = 2 Then MsgBox ("salam2")
If List1.ListIndex = 3 Then MsgBox ("salam3")
If List1.ListIndex = 4 Then MsgBox ("salam4")
If List1.ListIndex = 5 Then MsgBox ("salam5")
End Sub

حالا می خوام وقتی روی لیست 2 کلیک کردم مثلا اگه روی ایندکس شماره 2 لیست 2 کلیک کردم ایندکس شماره 2 لیست 1 انتخاب بشه که در این صورت باید پیغام

MsgBox ("salam2")
روی صفحه بیاد.
کسی اگه بلده کمکم کنه.
مرسی.
یا حق

[alih110]

اینم کد شما :

Private Sub List2_Click()
List1.ListIndex = List2.ListIndex
End Sub