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