PictuerBox1.ImageLocation property

Hi

You need set image using the imgelocation other than ImageFromFile

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frmMain As New Form3()
        Dim ctrl As Control
        Dim pictureboxname As String
        Dim myPics As New DirectoryInfo("C:\Documents and Settings\My Documents\My Pictures")
        Dim r As New Random()
        Dim i As Integer = r.Next(myPics.GetFiles.Length)
        Dim Pics() As FileInfo = myPics.GetFiles


        If TypeOf ctrl Is PictureBox And ctrl.Name = pictureboxname Then
            Dim MyPictureBox As PictureBox
            MyPictureBox = ctrl

            MyPictureBox.ImageLocation = Pics(i).FullName
            MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
        End If



    End Sub

Thank you