事件 – 过程声明与具有相同名称的事件或过程的描述不匹配

我只是新手,我试图在Visual Basic 6中创建一个简单的程序.代码几乎相当于教科书中的代码.它本来是一种油漆程序.令人惊讶的是,它无法使用此问题标题中给出的错误进行编译.
这是代码：

Option Explicit

Dim Col As Long

Private Sub Form_Load()
    AutoRedraw = True
    BackColor = vbWhite
    Col = vbBlack
    DrawWidth = 3
End Sub

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    Form1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Command2_Click()
    CommonDialog1.ShowSave
    SavePicture Image,CommonDialog1.FileName
End Sub

Private Sub Command3_Click()
    CommonDialog1.ShowColor
    Col = CommonDialog1.Color
End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
    PSet (X,Y),Col
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "Line1"
        DrawWidth = 3
    Case "Line2"
        DrawWidth = 20
    End Select
End Sub

应用程序崩溃在以下行：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

有错误：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Private Sub Toolbar1_ButtonClick(ByVal Index as Integer,ByVal Button As MSComctlLib.Button)