Jestem po prostu nowicjuszem i próbowałem stworzyć prosty program w Visual Basic 6. Kod jest prawie równoważny z tym w podręczniku. Miał to być rodzaj programu do malowania. Co zaskakujące, nie można go skompilować z błędem podanym w tytule tego pytania. To jest kod:

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

Aplikacja ulega awarii w następującym wierszu:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Z błędem:

deklaracja procedury nie pasuje do opisu zdarzenia lub procedury o tej samej nazwie