高手请这边来瞧瞧

Question

For i=0 To List1.ListCount-1
    If List1.Selected(i) Then
        '被选中的项
Msgbox List1.List(i)
    End If
Next---------------------------------------------------------------十年生死两茫茫。不思量，自难忘。千里孤坟，无处话凄凉。纵使相逢应不识。尘满面，鬓如霜。夜来幽梦忽还乡。小轩窗，正梳妆。相顾无言，惟有泪千行。料得年年肠断处。明月夜，短松岗。