Thumbnails resize

Min kode ser slik ut (brukte en konverterer: http://www.developerfusion.co.uk/utilities/convertcsharptovb.aspx)

      Const HEIGHT As Single = 130.0F
        Dim factor As Single = HEIGHT / CSng(aImgOrginal.Height)
        Dim width As Single = CSng(aImgOrginal.Width) * factor
        aIntHeight = HEIGHT
        aIntWidth = width