[سعود]

حبيت اشارك بالفكرة هذا فورم يحتوي 35 مربع صورة وكل مربع مربوط بصورة ضمن مجلد

والربط او الاسناد بالكود

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