Загрузка картинки в VB.NET 2005

Public Class Form1
Dim ris As New Bitmap(15, 15, Imaging.PixelFormat.Format24bppRgb)
 
Private Sub ЗагрузитьToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ЗагрузитьToolStripMenuItem.Click
        Dim k As Integer
        Dim filenameRead As String
        OpenFileDialog1.ShowDialog()
        filenameRead = OpenFileDialog1.FileName
        If filenameRead = "" Then Exit Sub
        ris = Image.FromFile(filenameRead)
        wi = ris.Width
        hi = ris.Height
        If wi >= hi Then wh = wi Else wh = hi
        iw = 0
        ih = 0
1:
        iwh = 500 / wh
        whi = wh
        wrs = iw
        hrs = ih
        PictureBox1.Refresh()
        
    End Sub
 
 Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        
        If iwh = 0 Then Exit Sub
        Dim rec As New RectangleF(wrs, hrs, whi, whi) 'x,y коор. вер. лев. в ris прямоуг. разм. х' , y' 
        'трансформация , растяжка (>1) или сжатие (<1) одинаково по обеим осям iwh
        e.Graphics.ScaleTransform(iwh, iwh)
        'перенос изображения вырезанного в PictureBox1 
        e.Graphics.DrawImage(ris, 0, 0, rec, GraphicsUnit.Pixel) 'x,y коор. вер. лев в PictuteBox1
 
    End Sub