' Retrieve the number of frames contained in the specified image. For non-' animated images the function returns 1'' Example:'    Dim frameCount As Integer = GetAnimationFrameCount("D:sample.gif")Function GetAnimationFrameCount(ByVal imgPath As String) As Integer    ' load the image    Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(imgPath)    Dim fdl As New Drawing.Imaging.FrameDimension(img.FrameDimensionsList(0))    ' get the frame count    Dim frameCount As Integer = img.GetFrameCount(fdl)    ' release the image    img.Dispose()    Return frameCountEnd Function