A) Private Sub List1_Click() Label1. Caption=List1. ListIndex End Sub B) Private Sub List1_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