'en esta funcion creo el pcb
sub crea_pcb(i as integer)
 For j = 0 To i - 1
            Dim pcb As New PictureBox
            pcb.Visible = True
            pcb.ImageLocation = Path_imagenes(j)
            pcb.Height = 150
            pcb.Width = 150
            pcb.Tag = Producto(j)
 
            If contador_fil > 3 Then
                pos_y += 160
                pos_x = 0
                contador_fil = 1
            End If
            If contador_fil = 1 Then
                pos_x = 0
            ElseIf contador_fil = 2 Then
                pos_x = 170
            ElseIf contador_fil = 3 Then
                pos_x = 340
            End If
            pcb.Location = New Point(pos_x, pos_y)
            AddHandler pcb.Click, AddressOf pcb_click
            frmProductos.Controls.Add(pcb)
            contador_fil += 1
        Next
end sub
'Esta es la funcion del click
Private Sub pcb_click(sender As System.Object, e As System.EventArgs)
    'mi duda es como usar el pcb.tag aquí. (Sin declararlo como public)
End Sub