Thanx for help, i have solved my problem by myself with the following code:
rivate Sub lstRelaties_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles lstRelaties.MouseDoubleClick
If lstRelaties.SelectedItems.Count > 0 Then
frmVCard.TextBox1.Text = lstRelaties.SelectedItems(0).SubItems(2).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(3).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(4).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(5).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(6).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(7).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(8).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(9).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(10).Text
frmVCard.TextBox1.Text = frmVCard.TextBox1.Text & vbCrLf & lstRelaties.SelectedItems(0).SubItems(11).Text
End If
frmVCard.Show()
End Sub