Private Sub List1_DblClick()

If Text1 <> "" Then
Text1 = Text1 & "，" & List1.List(1)
Text1 = Text1 & "，" & List1.List(2)
End If

If Text1 = "" Then
Text1 = List1.List(1)
Text1 = List1.List(2)
End If

End Sub

在界面双击姓名2还可以！会把姓名2写到Text1里，但是双击了姓名3就会连带着姓名2一起写到Text1里！要怎么写能知道我点击了一个个项！不要触发到没有点击到的项！麻烦各位师傅了！！！谢谢了！！！能详细的写个列子给我吗！！

Private Sub List1_DblClick()
text1.text=""
If list1.listindex=0 Then
Text1 = List1.List(0)
else
Text1 = List1.List(0) & "，" & List1.List(1)
End If

End Sub

Artless 你好谢谢你帮我

但是现在的问题是双击姓名2就输入姓名1和姓名2！也就是触发了Text1 = List1.List(0) & "，" & List1.List(1)这段！
我想他们互不干扰，有时候需要姓名2在前姓名1在后这样就不行了！能帮我在解决一下么！！！
麻烦你了！！

有时候需要姓名2在前姓名1在后？

Private Sub List1_Click()
Dim i As Integer
    i = List1.ListIndex    'i就是你点的那一行index
End Sub

多谢~Artless 和 yz1025
yz1025 你这个i = List1.ListIndex    启发了我终于写好了！！我是用Select Case 来配合你的实现的！！！