Private Function GibVerzögerungszeiten(bild As Image) As Integer()
    If ImageAnimator.CanAnimate(bild) Then
      Dim frameCount = bild.GetFrameCount(FrameDimension.Time)
      Dim frameDelayItem = bild.GetPropertyItem(&H5100)
      If frameDelayItem IsNot Nothing Then
        Dim values = frameDelayItem.Value
        Debug.Assert(values.Length = 4 * frameCount, "Das Byte-Array hat eine" & _
          "ungültige Länge.")
        Dim frameDelays(frameCount - 1) As Integer
        For i = 0 To frameCount - 1
          frameDelays(i) = BitConverter.ToInt32(values, i * 4)
        Next
        Return frameDelays
      End If
    End If
    Return Nothing
  End Function