vb中过程声明与同名时间或过程的描述不匹配

Dim XStart As Single
Dim XOld, YOld As Single
Dim mShape As Integer



Private Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.DrawWidth = 1
End Sub

Private Sub Option1_Click(Index As Integer)mShape = Index
End Sub
。。。。。。。
编译时说：编译错误：过程声明与同名时间或过程的描述不匹配
这是怎么回事？ --------------------编程问答-------------------- 你确定option1是一个控件数组么？

Private Sub Option1_Click(Index As Integer)

    mShape = Index

End Sub

补充：VB ,  基础类