Private Sub Save()
 
        For i = 0 To Frames.Count - 1
            Frames.Item(i).Save("K:\Lol\" & i & ".bmp", _
              System.Drawing.Imaging.ImageFormat.Bmp)'<-- 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(Cursor.Position, _
                  Cursor.Current.Size)
                Cursors.[Default].Draw(g, cursorBounds)
            End Using
            Frames.Add(image)
        End Using
    End Sub