Edit contacts; fill textbox out of listbox

[Bandito1]

Hi all,

I'm making a contactbook for phone contacts.

On userform frmTelephoneSearch i have a listbox named lstSearchResults. It displays all my contacts.

Now i would like to make a new userform to edit contacts that are in lstSearchResults.
I would like to select a name in the lstSearchResults, press a button and open a new userform and there there are textboxes that are filled with the data i clicked in lstSearchResults.

I made this test;

Private Sub lstSearchResults_Click()TextBox1.value = lstSearchResults.Text
End Sub

It works, the Full name is displayed in textbox1. But i would like that textbox on another userform.
Also there is more date; Full name, Department, Gender, phone and email. How do i specify each column to a textbox?

Hope someone can help.
Thanks in advance.

 

[Bandito1]

Found the answer on this;

It works, the Full name is displayed in textbox1. But i would like that textbox on another userform.

Also there is more date; Full name, Department, Gender, phone and email. How do i specify each column to a textbox?

[/COLOR]Private Sub UserForm_Initialize()
Me.txtSurname.value = frmTelephoneSearch.lstSearchResults.value
Me.txtDepartment.value = frmTelephoneSearch.lstSearchResults.Column(1)
End Sub
[COLOR=#333333]