Скоростное создание скриншотов - до 30 в секунду

Public Class Form1
 
    Dim OneThread As New Threading.Thread(AddressOf MySub)
    Dim TwoThread As New Threading.Thread(AddressOf MySub)
    Dim ThreeThread As New Threading.Thread(AddressOf MySub)
 
    Dim CurrentTime As New List(Of ULong)
 
    Sub MySub(ByVal watch As Stopwatch)
        Do
            Dim Current As New TimeSpan
            Dim IntL As ULong = watch.ElapsedMilliseconds
            If CurrentTime.Contains(IntL) = False Then
                Dim Bmp As Bitmap = GetScreen()
                Bmp.Save("E:\test" & watch.ElapsedMilliseconds & ".bmp")
                Bmp.Dispose()
            End If
        Loop
    End Sub
 
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Function GetScreen() As Bitmap
        Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(Bmp)
        G.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size)
        G.Dispose()
        Return Bmp
    End Function
 
    Dim watch As New Stopwatch
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        watch.Start()
        OneThread.Start(watch)
        TwoThread.Start(watch)
        ThreeThread.Start(watch)
    End Sub
 
End Class

Public Class Form1
 
    Dim OneThread As Threading.Thread
    Dim TwoThread As Threading.Thread
    Dim ThreeThread As Threading.Thread
 
    Dim IndexFrame As New List(Of Integer)
 
    Dim isRunning As Boolean = False
 
    Sub MySub()
        Do While isRunning
            Dim Bmp As Bitmap = GetScreen()
            IndexFrame.Add(IndexFrame(IndexFrame.Count - 1) + 1)
            Bmp.Save("E:\test" & IndexFrame(IndexFrame.Count - 1) & ".bmp")
            Bmp.Dispose()
        Loop
    End Sub
 
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Function GetScreen() As Bitmap
        Dim Bmp As New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
        Dim G As Graphics = Graphics.FromImage(Bmp)
        G.CopyFromScreen(0, 0, 0, 0, Screen.PrimaryScreen.Bounds.Size)
        G.Dispose()
        Return Bmp
    End Function
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        IndexFrame.Add(0)
        isRunning = True
        OneThread = New Threading.Thread(AddressOf MySub)
        TwoThread = New Threading.Thread(AddressOf MySub)
        ThreeThread = New Threading.Thread(AddressOf MySub)
        OneThread.Start()
        TwoThread.Start()
        ThreeThread.Start()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        isRunning = False
        IndexFrame.Clear()
    End Sub
 
End Class

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        isRunning = False
        Do While OneThread.IsAlive Or TwoThread.IsAlive Or ThreeThread.IsAlive
 
        Loop
        IndexFrame.Clear()
    End Sub

Dim isRunning As Boolean = False

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim DirInfo As DirectoryInfo = New DirectoryInfo("E:\test")
        For Each file As FileInfo In DirInfo.GetFiles
            file.Delete()
        Next
    End Sub

Directory.Delete("путь")