07-05-20, 07:46 AM
PHP كود :
Private Sub pics()
Dim c As Control
Dim i As Integer = 1
For Each c In Panel1.Controls
i = c.Name.Replace("p", "")
If TypeOf c Is PictureBox Then
CType(c, PictureBox).ImageLocation = CurDir() & "\pics\forvb_" & i.ToString("00") & ".png"
End If
Next
End Sub