Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
 
  If ListBox1.SelectedIndex >= 0 Then
    TextBox1.Text = ListBox1.SelectedItem.ToString
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de