.Selected导致编译错误

我正在编写代码来复制和粘贴多选列表框中的所有选中的框。 下面是我使用的代码的一个例子。

strValue1 = "" For i = 1 To Area.ListCount If Me.Area.Selected(i - 1) Then strValue1 = strValue1 + Area.List(i - 1) + ", " End If Next i If strValue1 <> "" Then strValue1 = Left(strValue1, Len(strValue1) - 2) strFinal = strFinal + strValue1 + vbCrLf End If 

当我尝试运行它，编译错误（方法或数据成员找不到），并出现。 选中突出显示。