ارتباط آیتم های Listbox با دستور case

[javady_joon]

با سلام من این کد رو نوشتم و میخوام با انتخاب هر قلم لیست باکس ، آیتم مورد نظر خودش رو در msgbox نمایش بده

اما فقط مقدار case else رو نمایش میده

Select Case lst1.SelCount
Case 1
MsgBox (" Your selected TV ")
Case 2
MsgBox (" Your selected Radio ")
Case 3
MsgBox (" Your selected Computer ")
Case 4
MsgBox (" Your selected Mobile ")
Case 5
MsgBox (" Your selected Speaker ")
Case 6
MsgBox (" Your selected Headohone")
Case 7
MsgBox (" Your selected CD ")
Case 8
MsgBox (" Your selected DVD ")
Case Else
MsgBox (" dadad")
End Select

ممنون میشم کمکم کنید

[Mori Bone]

dim seltext = list1.text
msgbox seltext

[javady_joon]

اما باز هم کار نمیکنه این بار فقط مقدار case else رو نمایش میده

ممکنه VB من مشکل داشته باشه؟

[vbhamed]

سلام

كار خاصيت SelCount شمردن تعداد عناصر انتخاب شده است، از ListIndex استفاده كنيد