GetAnimationFrameCount - Retrieve the number of frames contained in the specified image

' 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 frameCount
End Function