.
.
.
        Pts(i).Name = "Point" & i.ToString
        AddHandler Pts(i).Click, AddressOf Points_Click
.
.
.
 
    Private Sub Points_Click(sender As System.Object, e As System.EventArgs)
        MsgBox(CType(sender, OvalShape).Name)
    End Sub