Codenstuff.com

Imports System.IO

Public Class Form1
Dim Screen As New Bitmap(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim Screensize As New Size(My.Computer.Screen.Bounds.Width, My.Computer.Screen.Bounds.Height)
Dim G As Graphics = Graphics.FromImage(Screen)
Dim Stream As New FileStream("C:\videofile.avi", FileMode.Append)



Private Sub TmrCapture_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrCapture.Tick

G.CopyFromScreen(New Point, New Point, Screensize)
Screen.Save(Stream, Imaging.ImageFormat.Bmp)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ff As New FolderBrowserDialog
If (ff.ShowDialog = DialogResult.OK) Then
TextBox1.Text = ff.SelectedPath + "\"
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TmrCapture.Start()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TmrCapture.Stop()
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
AxWindowsMediaPlayer1.URL = "c:\test.avi"
End Sub
End Class