Always Copying Last Line From Listbox

I want code to copy the last item in the listbox to a textbox what ever the amount of items in the listbox

1. John

The Textbox would say john

1. John
2. Samantha

The textbox would say samantha etc so it is always reading the last one.

Hope someone can help

Me.Text1.Text = Me.List1.List(Me.List1.ListCount - 1)

The ListCount property identifies the number of items in the list. By subtracting 1 from that value (since the List collection is 0-based) you can derive the ListIndex of the last item in the List.

I want code to copy the last item in the listbox to a textbox what ever the amount of items in the listbox

1. John

The Textbox would say john

1. John
2. Samantha

The textbox would say samantha etc so it is always reading the last one.

Hope someone can help

Text1.Text = List1.List(List1.ListCount - 1)

Dan

After Note: He got here first:(

Oh i see yeh Thanks i will test it later as it looks small enough code to work. I have not tested the variable code you gave me 00100b because i needed this to work first as the name in the textbox will be the variable. I will test it later and reply to the other post. Thanks!!!