A. ) Private Sub List1_Click()
Label1.Caption = List1.ListIndex
List1.RemoveItem List1.Text
E.nd Sub
B. ) Private Sub List1_Click()
Label1. Name = List1. ListIndex
List1.RemoveItem List1.Text
E.nd Sub
C. ) Private Sub List1_Click()
Label1.Caption = List1.Text
List1.RemoveItem List1.ListIndex
E.nd Sub
D. ) Private Sub List1_Click()
Label1.Name = List1.Text
List1.RemoveItem List1.ListIndex
E.nd Sub