VB编程错误，过程声明与同名事件或过程的描述不匹配怎么回事

提示是第一句变蓝
Private Sub imgPT_Click(Index As Integer)
Dim r1 As Integer, c1 As Integer
Dim r2 As Integer, c2 As Integer
Dim n As Integer
Dim i As Integer

If Not started Then Exit Sub

c1 = space Mod Cols
r1 = space \ Cols

c2 = Index Mod Cols
r2 = Index \ Cols

If Abs(c1 - c2) = 1 And Abs(r1 - r2) = 0 Or Abs(c1 - c2) = 0 And Abs(r1 - r2) = 1 Then
n = Arrange(Index)
Arrange(Index) = Arrange(space)
Arrange(space) = n
imgPT(space) = PC.GraphicCell(Arrange(space))
imgPT(Index) = LoadPicture()
space = Index
steps = steps + 1
txtStep.Text = steps
If isOK() Then
MsgBox "恭喜，完成拼图！共用了" & steps & "步。", vbInformation
For i = 1 To Rows * Cols - 1
imgPT(i).Enabled = False
Next
End If
End If
End Sub

Private Sub imgPT_Click(Index As Integer)

这要求你的窗体上有一个控件数组，每个控件 Name 都是 imgPT，用 Index 属性区分。

如果你没有这个控件数组，当然会报错。

你将出错的事件过程中的代码，先复制下来，再删除这个事件过程 然后再添加这个事件过程，再把代码复制进来，再运行，应该就ok了 你的错误，一般是由于先编写好了事件代码，后来，你又弄了什么控件数组之类的，所以，就出现你的错误，因为这时，事件代码中，多了一个index as ingeter 参数，而以前没有，所以会出错