Select Newly Added Item in Listbox

Create a form like on the picture bellow:

In to the selected button write the code bellow:

        

Dim selecteditem As Integer = ListBox1.Items.Add(TextBox1.Text)

ListBox1.SetSelected(selecteditem, True)