aspImage, hvordan?

Jeg bruger den til at resize billederne, og det virker bare....

med sådan en funktion her:
Sub ResizeX (intXSize)
  Dim intYSize
  intYSize = (intXSize / Image.MaxX) * Image.MaxY
  Image.ResizeR intXSize, intYSize
end sub

Hvor du bare skal sætte længden på x-akslen i px.
Så klare den resten så du får det rigtige forhold, så det ikke ligner billedet bare er trukket.