下拉框，需要对象

Question

我构建了以下代码。在这里，我们点击功率点显示中的组合框，日期是从列表中选择的。出于某种原因，我得到了一个

  

对象所需的运行时间424错误

我需要设置对象吗？

Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount = 0 Then
   Call AddDropDownItemsFromDate(1)
End If
End Sub

 Sub AddDropDownItemsFromDate(i As Integer)
 Dim nIndex As Integer
 Dim Selector As Integer
 Selector = i

 Select Case Selector
  Case Is = 1
  For nIndex = 0 To 3600
   ComboBox1.AddItem DateAdd("d", nIndex, CVDate("10/02/2007"))
  Next nIndex
  Case Is = 2 
   ....other combobox's
End Select

End Sub