Private Sub Buttonbildwählen_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
Handles Buttonbildwählen.Click
 
'Bildformate zuweisen
Me.OpenFileDialog1.Filter = "Bilddateien (" & _
  "*.JPG;*.GIF;*.BMP;*.JPEG;*.PNG)|*.JPG;*.GIF;*.BMP;*.JPEG;*.PNG"
 
        'Wir beginnen immer im InitialDirectory
        Me.OpenFileDialog1.RestoreDirectory = True
 
        'Catch Block um Fehler abzufangen
        Try
If Me.OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then ' <--- 
' Es wurde eine Bilddatei ausgewählt
                '
                'Die ausgewählte Datei wird in der Picturebox angezeigt
                Me.PictureBox1.Image = System.Drawing.Image.FromFile( _
                  Me.OpenFileDialog1.FileName)
                '
                'Bild wird der PictureBoxgröße automatisch angepasst
                Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
                '
            End If
        Catch ex As Exception
            'Hier landen wir nur, wenn was übersehen wurde
            MessageBox.Show("Error: " & ex.Message.ToString, "Info!", _
            MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
        End Try
    End Sub

VB@rchiv its the Best