创建一个list控件和label控件，目的，点击list控件上的项目时，被选中的项目会显示到label控件上，
当list控件的multiselect值为1时，就是可以选择多项了，这时，达到上面的目的代码要怎么写呢？请求高手指点

Private Sub List1_MouseMove Button As Integer, Shift As Integer, X As Single, Y As Single)

If InStr(Label1.Caption, List1.List(List1.ListIndex)) = 0 Then
   Label1.Caption = Label1.Caption & List1.List(List1.ListIndex) & Chr(10)
End If

End Sub

谢谢楼上那位大侠- -不过取消反选之后label的字不会也删除掉，这个有没有什么办法？

Private Sub List1_Click()
If InStr(Label1.Caption, List1.List(List1.ListIndex)) = 0 Then
   Label1.Caption = Label1.Caption & List1.List(List1.ListIndex))
Else
   Label1.Caption = Replace(Label1.Caption, List1.List(List1.ListIndex), "")
End If
End Sub

回车换行符 用常量 vbcrlf = chr(13) & chr(10)

不要光用 换行符 vblf=chr(10)

谢谢斑竹热心指正，偶记住了

谢谢楼上各位- -不过我初学的，有些函数还没有学到，比如 chr  vbcrlf  不懂是什么意思，虽然找到了另一个方法解决但是希望大侠能解释一下上面的语句

受教了

谢谢分享

VBCR  就是回车符, ASCII码编号 13
VBLF  就是换行符, ASCII码编号 10

VBCRLF 就是回车换行符,是上面二个字符相联.

CHR 函数,把一个数据转换为 对应编号的 ASCII 码.
字符串,由ASCII 组成

所以 CHR(13) 与 VBCR 相同
     CHR(10) 与 VBLF 相同
     VBCRLF = CHR(13) & CHR(10)


一般情况下,推荐使用 VBCRLF 等字符常量,而不推荐使用 CHR(13) & CHR(10) 这种的表达式写法.
VBCRLF 在运行时,没有另何开销,而 CHR(13) & CHR(10) 则每次使用时,都必须调用 DLL 来进行一次查表操作.影响程序运行速度.