VB6添加了一个SSTab控件后，编译错误Procedure declaration does not match description of event or ...


如题。第一次用SSTab控件，但是编译时报如下错误
"compile error :Procedure declaration does not match description of event or procedure having the same name" 
报错后焦点停留在Private Sub SSTab1_Click()这句上，请问各位是什么原因？网上有的说是没有装sp6，我下载了一个装上还是不行。我只是做一些初始化，代码如下：
Private Sub SSTab1_Click()
    Select Case SSTab1.Tab                  ' 获得或设置活动的选项卡号
        Case 1
            ' 选择收入
            Dim i As Integer
            Dim datTmp As Date
        
            On Error GoTo ErrHandler:                    '执行以下语句出错时，跳转到ErrHandler错误处理语句
            
            ' 初始化金额为""
            txtMoney.Text = ""
            txtQueryMoney.Text = ""
            
            Call getInputType           ' 取得收入类型list
            
            Call getQueryInputType      ' 取得查询条件的收入类型
                
            ' 设置登记日期,并设置年月日的初期值
            For i = FROM_YEAR To TO_YEAR
                comYear.AddItem i       ' 年
                comQueryYear.AddItem i
            Next i
            comYear.Text = Year(Date)
            comQueryYear.Text = Year(Date)
            
            For i = 1 To 12
                comMonth.AddItem i      ' 月
                comQueryMonth.AddItem i
            Next i
            comMonth.Text = Month(Date)
            comQueryMonth.Text = Month(Date)
            
            datTmp = DateAdd("m", 1, comYear & "/" & comMonth & "/" & "1") - 1
            comDay.Clear
            comQueryDay.Clear
            For i = 1 To Day(datTmp)
                comDay.AddItem i        ' 日
                comQueryDay.AddItem i
            Next i
            comDay.Text = Day(Date)
            comQueryDay.Text = Day(Date)
            
            ' 初始化备注为空
            txtBeizhu.Text = ""
            
            ' 初始化变量
            lblJiluNo.Caption = ""          ' 初始化记录编号为空
              
            Exit Sub
            
ErrHandler:                                          '错误处理
            MsgBox "初始化失败！", vbOKOnly + vbExclamation, "警告"
            Exit Sub         Case 2
            ' 选择支出
   End Select
   
End Sub