A. Private Sub list1_Click()
Label1. Caption= List1. ListIndex End
Sub
B. Private Sub Listl_Click()
Label1. Name= List1. ListIndex End Sub
C. Private Sub List1_Click()
Label1. Name== List1. Text End Sub
D. Private Sub List1_Click()
Label1. Caption: List1. Text End Sub