مشکل در مورد load کردن عکس در vb

با سلام
من تقریبا 6 ماه پیش یه پروژه بهم خورد که با این کد تونستم عکس رو آپلود کنم

Dim result As DialogResult = OpenFileDialog1.ShowDialog()

If result = Windows.Forms.DialogResult.OK Then

Dim input As Bitmap

Dim output As Bitmap

Dim siz AsLong = 100

Dim wid AsLong

Dim hgt AsLong

Dim picname AsString = OpenFileDialog1.FileName

Try

input = Bitmap.FromFile(picname)

Catch ex As Exception

input =

New Bitmap(150, 150)

Dim grafinput As Graphics = Graphics.FromImage(input)

grafinput.FillRectangle(

New SolidBrush(Color.CornflowerBlue), 0, 0, 150, 150)

grafinput.Dispose()

EndTry

If siz > 0 Then

If input.Height > input.Width Then

wid = (siz * input.Width) / input.Height

hgt = siz

Else

hgt = (siz * input.Height) / input.Width

wid = siz

EndIf

ElseIf hgt > 0 Then

wid = (hgt * input.Width) / input.Height

ElseIf hgt > 0 Then

hgt = (wid * input.Height) / input.Width

EndIf

If (hgt < 1) Or (input.Height < hgt) Then

output = input

Else

output =

New Bitmap(input, wid, hgt)

EndIf

PictureBox1.Image = output

input.Dispose()

EndIf

اما الان همین کد رو وقتی تو vb مینویسم ارور میده!!!!!!
کسی میدونه باید چیکار کنم؟
اگه کدی شبیه اینم دارین و کارم و راه بندازه ممنون میشم بهم بدین.

راستی یادم رفت بگم
قسمت openfiledialog1 رو ارور میده
ارورnotdeclared

سلام...

اول کدت رو بذار توی تگ کد که بشه لااقل بفهمید چی نوشنی؟

با تشکر

کار با این تگ ها اینقد عجیب قریب بود که مجبور شدم تو یک فایل notpad کد رو ذخیره کرم

کد ئه ایرادی نداره، صرفا یک PictureBox1 و یک OpenFileDialog1 رو باید روی فرم قرار دهید تا کار کنه :

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim result As DialogResult = OpenFileDialog1.ShowDialog()

        If result = Windows.Forms.DialogResult.OK Then

            Dim input As Bitmap

            Dim output As Bitmap

            Dim siz As Long = 100

            Dim wid As Long

            Dim hgt As Long

            Dim picname As String = OpenFileDialog1.FileName

            Try

                input = Bitmap.FromFile(picname)

            Catch ex As Exception

                input = New Bitmap(150, 150)

                Dim grafinput As Graphics = Graphics.FromImage(input)

                grafinput.FillRectangle(New SolidBrush(Color.CornflowerBlue), 0, 0, 150, 150)

                grafinput.Dispose()

            End Try

            If siz > 0 Then

                If input.Height > input.Width Then

                    wid = (siz * input.Width) / input.Height

                    hgt = siz

                Else

                    hgt = (siz * input.Height) / input.Width

                    wid = siz

                End If

            ElseIf hgt > 0 Then

                wid = (hgt * input.Width) / input.Height

            ElseIf hgt > 0 Then

                hgt = (wid * input.Height) / input.Width

            End If

            If (hgt < 1) Or (input.Height < hgt) Then

                output = input

            Else

                output = New Bitmap(input, wid, hgt)

            End If

            PictureBox1.Image = output

            input.Dispose()

        End If

    End Sub

End Class

سلام
حالا یه سوال
ما این عکس رو لود کردیم
چه جوری میتونیم این عکس رو که انتخاب کردیم تو یه فرم دیگه فرخونی کنیمش تو پیکچر باکس

تو فرم دیگه این کد را بذار

PictureBox1.Image =  Image.FromFile(OpenFileDialog1.FileName)

یا این

form2.PictureBox1.Image =PictureBox1.Image 

 

 

یا تو قسمت اخر کدت اینو بذار که با هم لود بشن

form2.PictureBox1.Image =output