Bonsoir,

il suffit de rajouter l’événement à la génération du composant :


Private Sub maSubGenerePB()
Dim pb As New PictureBox
AddHandler pb.MouseDown, AddressOf...