Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Lab As New Label
        Lab.Text = "Label1"
        Me.Controls.Add(Lab)
       'Qui assegno l' evento Click
        AddHandler Lab.Click, AddressOf Label1_Click
    End Sub