Muchisimas gracias por la respuesta Sinia
Ahora puedo seguir con el proyecto.
Ahora puedo seguir con el proyecto.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúdim pcb as new PictureBox
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