列表框内容小弟我点击显示出标签后小弟我在点击就会覆盖了，如何破

列表框内容我点击显示出标签后我在点击就会覆盖了，怎么破？
RT，

Private Sub Form_Load()

  List1.AddItem "值班人员", 0

   List1.AddItem "张", 1

   List1.AddItem "李", 2

  List1.AddItem "赵", 3

  List1.AddItem "余", 4

  List1.AddItem "-------------", 5

  List1.AddItem "值班时间", 6

  List1.AddItem "上午", 7

  List1.AddItem "下午", 8

  List1.AddItem "晚上", 9

   List1.AddItem "-------------", 10

  List1.AddItem "值班情况", 11

  List1.AddItem "正常", 12

  List1.AddItem "早到", 13

  List1.AddItem "迟到", 14

End Sub



Private Sub List1_Click()

 Label1.Caption = List1.Text

End Sub

 
------解决方案--------------------
 Label1.Caption = Label1.Caption + " " + List1.Text 
------解决方案--------------------
如果一定要使用一个列表框来做，可以这样：

Private Sub Form_Load()

  List1.AddItem "值班人员", 0

  List1.AddItem "张", 1

  List1.AddItem "李", 2

  List1.AddItem "赵", 3

  List1.AddItem "余", 4

  List1.AddItem "-------------", 5

  List1.AddItem "值班时间", 6

  List1.AddItem "上午", 7

  List1.AddItem "下午", 8

  List1.AddItem "晚上", 9

  List1.AddItem "-------------", 10

  List1.AddItem "值班情况", 11

  List1.AddItem "正常", 12

  List1.AddItem "早到", 13

  List1.AddItem "迟到", 14


  Label1 = "值班人员: , 值班时间: , 值班情况: "

End Sub


Private Sub List1_Click()

Dim strTmp() As String


    strTmp = Split(Label1.Caption, ",")

    

    Select Case List1.ListIndex

        Case 1 To 4

            strTmp(0) = "值班人员: " & List1.List(List1.ListIndex)

        Case 7 To 9

            strTmp(1) = " 值班时间: " & List1.List(List1.ListIndex)

        Case 12 To 14

            strTmp(2) = " 值班情况: " & List1.List(List1.ListIndex)

    End Select

    

    Label1.Caption = Join(strTmp, ",")

End Sub