关于combobox的listindex的问题

Private Sub cmbFront_Click()
Dim tmpIndex As Integer
    tmpIndex = cmbFront.ListIndex
    cmbBack.ListIndex = tmpIndex
End Sub

我想实现第一个下拉框点击一条记录，第二个下拉框自动跳到对应的就上
下拉框的内容是在formload的时候用additem加载的
但是现在在编译的时候报错 无效的属性值
何解？
[解决办法]
应该不会，是否有其他错误。

如下测试代码运行正确：