¿Cómo obtener el elemento seleccionado en el control vb listbox?

Evento 1: Agregar elemento ListBox y el identificador del elemento correspondiente Dim List1 Como nuevo ListBox List1.addItem , , Monday List1.ItemData(List1.newIndex) = "1" List1.addItem , , Tuesday List1 ItemData(List1.newIndex) = "2"List1.addItem, miércoles List1.ItemData(List1.newIndex) = "3"List1.addItem, jueves List1.ItemData(List1.newIndex) = "4" SubList1_Click privado. ( ) Si List1.ListIndex = -1 Then Exit Sub 'No se selecciona ningún elemento, 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