A.Private Sub List1_Click() Label1.Caption=List1.Listlndex End Sub B.Private Sub List1_CJick() Label1.Nane=List1.Listlndex End Sub C.Private Sub List1_Click() Label1.Name=List1.Text End Sub D.Private Sub List_Click() Label1.Caption=List1.Text End Sub