Pak jednoduše přidejte registraci události tj. tento řádek:
AddHandler pH.Click, AddressOf pH_Click
před řádek (ve Form1_Load):
Me.Panel1.Controls.Add(pH)
a do formuláře přidejte handler pH_Click:
Private Sub ph_Click(ByVal sender as object, ByVal e as EventArgs)
MessageBox.Show("Clicked on " & CType(sender, Label).Name)
End Sub
|