¿Cómo obtener el elemento seleccionado en el control del cuadro de lista vb?

Evento 1: Agregar el elemento ListBox y la identificación del elemento correspondiente Dim List1 Como nuevo ListBox List1.addItem, lunes List1.ItemData(List1.newIndex) = "1" List1.addItem, martes List1.ItemData(List1.newIndex) = "2"List1.addItem, miércoles List1.ItemData(List1.newIndex) = "3"List1.addItem, jueves List1.ItemData(List1.newIndex) = "4" Sub privado List1_Click( ) Si List1.ListIndex = -1 Then Exit Sub 'No hay ningún elemento seleccionado, salga del método End If Debug.Print List1.ItemData(List1.ListIndex) 'Imprime la identificación de la Lista1 seleccionada. . Puede ser "1" "2" "3" "4" Debug.Print List1.Text 'Imprime el nombre de la Lista1 seleccionada. . Probablemente de lunes a juevesEnd Sub