A.PriVate Sub List1_Click() Labell.CaptiOn=List.ListIndex End Sub
B.PriVate Sub List1_Click() Labell.Name=listl.ListIndex End Sub
C.Private Sub List1_Click() Labell.Name=Listl.Text End Sub
D.Private Sub List1_Click() Labell.Caption=List1.Text End Sub