Just use the listbox attribute Text to return the text of the selected item.

Private Sub List1_Click()

text1.text=list1.text

End Sub

In addition, listbox also has some commonly used attributes , ListIndex returns the current item index (number), ListCount returns the total number of items, SelCount returns the number of items selected in the ListBox control, and NewIndex returns the index of the most recent item added to the control. These four are all integer values.