Private Function GetFrame(ByVal Count As Long) As Bitmap
  If AktuelleGifAnimation.Frames.Count < Count Then
    AktuelleGifAnimation.Frames.Add(Count - AktuelleGifAnimation.Frames.Count)
    Return(New Bitmap(AktuelleGifAnimation.Frames( _
      0).Width,AktuelleGifAnimation.Frames(0).Height))
  Else
    Return(CType(AktuelleGifAnimation.Frames(Count),Bitmap))
  End If
End Function
 
Private Sub SaveCurrentFrame(ByVal ValueOfFrame As Bitmap,ByVal Position As _
  Long)
  AktuelleGifAnimation.Frames.SetFrame(Position,ValueOfFrame)
End Sub