problem in using magic collection

[wael]

I use this code to gather my png photos in one animated gif. but nothing happens except form is closing>> what is wrong?
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim photos As String() = Directory.GetFiles(Application.StartupPath, "*.png")
Using collection As New MagickImageCollection()
Dim iarray As Integer = 0
For Each name As String In photos
collection.Add(name)
collection(iarray).AnimationDelay = 0
iarray += 1
Next

Dim settings As New QuantizeSettings()
settings.Colors = 256
collection.Quantize(settings)

collection.Optimize()
collection.Write("imagemagick.gif")

End Using
End Sub

[fmw42]

I have moved this topic, since it does not appear to be consulting for payment. The Consulting forum is for Paid Consulting, only.

Also this seems to be a duplicate post from another forum. Please do not post multiple times for the same topic.

[wael]

ok. thank u