Algo sucede con este script

[Jarkaos]

Buscando en internet la forma de poder abrir imagenes y mostrarlas en mi form he encontrado que se puede utilizar el OpenFileDialog para buscar la imagen y abrirla. He probado un script que encontre que realiza esa tarea, el problema esta en que cuando uno clicka en "abrir" la imagen no se muestra en la forma, pero si uno intenta por segunada vez y esta vez en vez de abrir alguna imagen solamente se clikea en cancelar la imagen escogida en el primer intento se muestra en la forma. Por que sucede esto?
esto es el script:

Código:

Dim strFileName As String

        openFD.InitialDirectory = "C:\"

        openFD.Title = "Add A Display Picture"
        openFD.Filter = "JPEGS|*.jpg|GIFS|*.gif|Bitmaps|*.bmp"
        Dim DidWork As Integer = openFD.ShowDialog()

        If DidWork <> DialogResult.OK Then
            strFileName = openFD.FileName
            PictureBox.Image = Image.FromFile(strFileName)
            openFD.Reset()
        End If

Gracias

[Jarkaos]

Ya lo solucione. El if esta de mas, debe ser:

Código:

Dim strFileName As String

        openFD.InitialDirectory = "C:\"

        openFD.Title = "Add A Display Picture"
        openFD.Filter = "JPEGS|*.jpg|GIFS|*.gif|Bitmaps|*.bmp"
        openFD.ShowDialog()

        strFileName = openFD.FileName
        pictureBox.Image = Image.FromFile(strFileName)