Clicking on a Control Array of Shapes

[ahjohnston25]

Hello Everyone!

I'm trying to help a friend make Connect 4 in VB6 but I'm running into a problem with handling the event of someone clicking on one of the circles. The goal is that when a person clicks on a circle the Subroutine is called with the index as an argument, but for some reason the code doesn't run.

Below is my code:

Private Sub Shape1_Click(ByVal Index As Integer)
MsgBox (Index) 'Will be replaced with functioning code upon bugfix
End Sub

Thanks to everyone in advance!