動的にコントロールを作って貼り付ける
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
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