Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
    Dim SC As New PowerPacks.ShapeContainer With {.Parent = Me}
    Dim Pts(9) As OvalShape
 
    Private Sub Point(i As Int32, X As Int32, y As Int32)
        Pts(i) = New OvalShape With {.FillColor = Color.Red, .Cursor = _
          Cursors.Hand, .Parent = SC}
        Pts(i).Size = New Size(20, 20)
        Pts(i).Location = New Point(X, y)
        Pts(i).Name = "Point" & i.ToString
        Pts(i).FillStyle = FillStyle.Solid
        AddHandler Pts(i).Click, AddressOf Points_Click
    End Sub
 
    Private Sub Points_Click(sender As System.Object, e As System.EventArgs)
        MsgBox(CType(sender, OvalShape).Name)
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        For i As Int32 = 0 To Pts.Count - 1
            Point(i, 20 + 25 * i, 20)
        Next
    End Sub
End Class