hvordan ændrer jeg picsource med en filedialog

jeg har det her stykke kode:

' skaf skallerings faktoren.
        Dim scale_factor As Single = Single.Parse(txtScale.Text)

        ' hent kilde billedet.
        Dim bm_source As New Bitmap(*****picSource*****.Image)

        ' opret et bitmap til resultatet.
        Dim bm_dest As New Bitmap( _
            CInt(bm_source.Width * scale_factor), _
            CInt(bm_source.Height * scale_factor))

        ' lav at grephics object til resultatet.
        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

        ' kopiet kilde billedet ind i destinations bitmap'en.
        gr_dest.DrawImage(bm_source, 0, 0, _
            bm_dest.Width + 1, _
            bm_dest.Height + 1)

        ' vis resultatet.
        picDest.Image = bm_dest
    End Sub

jeg vil kunne ændre picsource(mellem *****'erne) i runtime... hvordan gør jeg det?
jeg skal have picsource til at være = openfilediablog1.filename