[سعود]

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