Private Sub cmdAdd_Click()
  lstNames.Add txtVorname.Text & " " & txtZuName.Text
End Sub

Private Sub lstNames_Click()
  Dim intPos As Integer
  intPos = Instr(1, lstNames.Text, " ")
  If intPos > 0 Then
    txtVorname.Text = Left(lstNames.Text, intPos - 1)
    txtNachname.Text = Mid(lstNames.Text, intPos + 1)
  Else
    txtVorname.Text = lstNames.Text
  End If
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.