Module Module1
 
    Sub Main(ByVal args As String())
        Console.WriteLine("PNG Resizer")
        Dim images As New images
 
        images.newSize(args(0)) ' hier stürzt es ab mit dieser meldung 
        ' System.IndexOutOfRangeException wurde nicht behandelt. Der Index war 
        ' außerhalb des Arraybereichs.
 
 
        Dim sourceImage As Image = Image.FromFile(args(0))
        images.ImageResize(sourceImage, images.h, images.w).Save(args( _
          0).Replace(".png", "2.png"))
        Console.WriteLine(String.Concat(New Object() {"Image resized into ", _
        images.w, "x", images.h}))
        Console.ReadLine()
    End Sub
 
End Module