Public Sub foobar Dim oLabel As Label oLabel = New Label() Me.Controls.Add(oLabel) AddHandler oLabel.Click, Address of ClickHandler End Sub Private Sub ClickHandker( sender As Object, e As System.EventArg ) ... End Sub Newしたあと、貼り付…