Buenas, tengo el siguiente problema:
Estoy intentando crear varios PictureBox desde código, pero al ejecutar el programa veo que me crea todos los PictureBox , pero solo aparece uno...
tengo hecho que entre cada PictureBox deje 200px de distancia respecto al anterior, pero sigue apareciéndome solo uno.
PD: la ruta de imagen es correcta
Aquí les dejo el código:
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
contador_fil = 1
pos_y = pos_y + 200
End If
If contador_fil = 1 Then
pos_x = 0
End If
If contador_fil = 2 Then
pos_x = 200
End If
If contador_fil = 3 Then
pos_x = 400
End If
pcb.Location = New Point(pos_x, pos_y)
frmProductos.Controls.Add(pcb)
Next