VB2010でイベントハンドラの動的登録

質問

ＶＢ２０１０で目標はフォーム上で作成したLINESHAPEをクリックして消去する事です
下記のようにコードを書いてみました

Imports Microsoft.VisualBasic.PowerPacks

Public Class Form1

Private px1 As Integer = 0
Private px2 As Integer = 0
Private py1 As Integer = 0
Private py2 As Integer = 0
Private curv As LineShape
Private a As Boolean = True
Private flg As Boolean = True

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
// 座標と始点・終点フラグの初期化
px1 = 0
px2 = 0
py1 = 0
py2 = 0
a = True
End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
　　　 // SHAPECONTAINER の用意
Dim canvasx As New ShapeContainer
　　　// LINESHAPE の用意
Dim ls1 As New LineShape　　
　　　// LineShape インスタンス設定
canvasx.Parent = Me
ls1.Name = "curv"
ls1.Parent = canvasx
ls1.BorderColor = Color.Lime
ls1.SelectionColor = Color.Green
ls1.X1 = px1
ls1.X2 = px2
ls1.Y1 = py1
ls1.Y2 = py2
　　　// ShapeContainer のコントロールコレクションへの追加
Me.Controls.Add(canvasx)

End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
　　　　// 座標と始点・終点フラグの初期化
px1 = 0
px2 = 0
py1 = 0
py2 = 0
a = True
End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
//CURV_CLiCKのイベントの登録
AddHandler curv.Click, AddressOf curv_Click

End Sub

Private Sub Form1_Click(sender As System.Object, e As System.EventArgs) Handles MyBase.Click
　　　　// Lineの座標を拾う
Dim Pos As Point = Me.PointToClient(Windows.Forms.Cursor.Position)
If a = True Then
px1 = Pos.X
py1 = Pos.Y
a = False
Else
px2 = Pos.X
py2 = Pos.Y
End If

End Sub

Private Sub curv_Click(sender As System.Object, e As System.EventArgs)
// クリックされたLineShapeの消去のつもり、テスト未完
For Each obj In Me.Controls
If obj = sender Then
obj = Nothing
End If
Me.Refresh()

Next
End Sub

End Class

書かれた直線をクリックしても何も起きません。ＬｉｎｅＳｈａｐｅ　は確かにハイライト色に変化するのですが、イベントが発生しません

なにとぞご教授を

回答No.1

めとろいと（@naktak） · ベストアンサー

変数curvには何も値がセットされていませんが。
Button1_Click()にて、curv = ls1ということをしたいのでしょうか？

お礼

naktakさん、ご返事遅れて申し訳ありませんでした。アドバイスありがとうございました確かにＣＵＲＶＥは空でしたＡＤＤＨＡＮＤＥＬＥＲをＢＵＴＴＯＮ１＿ＣＬＩＣＫに持ってくる事で解決しました