Private frames As New List(Of Bitmap)
 
 Private Sub Save()
     Dim counter As Integer = 0
     For Each bmp As Bitmap In frames
         bmp.Save("C:\" & counter.ToString() & ".bmp", _
           System.Drawing.Imaging.ImageFormat.Bmp) '<-- keine Exception :-)
     Next
 End Sub
 
 Public Sub Testscreen()
     Dim screenBounds As Rectangle = Screen.PrimaryScreen.Bounds
     Using image As New Bitmap(screenBounds.Width, screenBounds.Height)
         Using g As Graphics = Graphics.FromImage(image)
             Dim p As New Point(0, 0)
             g.CopyFromScreen(p, p, image.Size)
             Dim cursorBounds As New Rectangle(Windows.Forms.Cursor.Position, _
               Windows.Forms.Cursor.Current.Size)
             Cursors.[Default].Draw(g, cursorBounds)
             frames.Add(New Bitmap(image))
         End Using
     End Using
 End Sub

Gruß
Christoph