.Selected导致编译错误

Question

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

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

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