[Mostafa Saad]

السلام عليكم ........... جرب هذا الكود

Public Class Form1
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As New OpenFileDialog
"x.Filter = "Image Files|*.bmp;*.png;*.jpg;*.jpeg;*.gif;*.tif
If x.ShowDialog Then
TextBox1.Text = x.FileName
End If
End Sub
----------------------------------------------------------------------------------------
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
Form2.Show()
End Sub
End Class
----------------------------------------------------------------------------------------
Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.PictureBox1.ImageLocation = Form1.TextBox1.Text
End Sub
End Class