[TUT]Screen RECORDER!!!

ublic Class Form1

    Private Sub RECScreen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RECScreen.Tick

        If CheckBox1.Checked = True Then
            Dim DirectoryA As String = FileDIR.Text
            Dim Frame0 As String = FileNUM.Text
            Dim img0 As String = FileType.Text

            FileNUM.Text = FileNUM.Text + 1
            VideoScreenWindow.VideoScreen.Load(DirectoryA & Frame0 & img0)

        Else

            Dim ScreenSize As Size = New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim BMP As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
            Dim g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(BMP)
            g.CopyFromScreen(New Point(0, 0), New Point(0, 0), ScreenSize)

            Dim DirectoryA As String = FileDIR.Text
            Dim Frame1 As String = FileNUM.Text
            Dim img1 As String = FileType.Text

            FileNUM.Text = FileNUM.Text + 1
            BMP.Save(DirectoryA & Frame1 & img1)

        End If
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        VideoScreenWindow.Show()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        VideoScreenWindow.Hide()
    End Sub


    Private Sub INT10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT10.Click
        IO.Text = "100 FPS"
        RECScreen.Interval = "10"
    End Sub

    Private Sub INT50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT50.Click
        IO.Text = "20 FPS"
        RECScreen.Interval = "50"
    End Sub

    Private Sub INT100_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT100.Click
        IO.Text = "10 FPS"
        RECScreen.Interval = "100"
    End Sub

    Private Sub INT250_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT250.Click
        IO.Text = "04 FPS"
        RECScreen.Interval = "250"
    End Sub

    Private Sub INT500_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT500.Click
        IO.Text = "02 FPS"
        RECScreen.Interval = "500"
    End Sub

    Private Sub INT1000_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles INT1000.Click
        IO.Text = "01 FPS"
        RECScreen.Interval = "1000"
    End Sub

    Private Sub REC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles REC.Click
        RECScreen.Enabled = True
        FileNUM.Text = "0"
    End Sub

    Private Sub STP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STP.Click
        RECScreen.Enabled = False
    End Sub
End Class