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() Laloel1.Caption=List1.Text End Sub