Private Sub Point(ByVal Type As String, ByVal Index As Integer, ByVal X As _
      Integer, ByVal y As Integer)
 
        Dim ZColor As Color
 
        If Type = "Type1" Then ZColor = CheckBox1.ForeColor
        If Type = "Type1" Then ZColor = CheckBox2.ForeColor
 
        shape1(Index) = New OvalShape
        shape1(Index).Parent = canvas
        shape1(Index).Size = New System.Drawing.Size(8, 8)
        shape1(Index).Location = New Point(X, y)
        shape1(Index).FillColor = ZColor
        shape1(Index).BorderColor = ZColor
        shape1(Index).FillStyle = FillStyle.Solid
        shape1(Index).BringToFront()
 
    End Sub