Я только начинающий, и я пытался сделать простую программу на 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)

С ошибкой:

Объявление процедуры не соответствует описанию события или процедуры с одинаковым именем.