Option Explicit


Dim flag As Boolean
Dim lBytes As Long
Dim lFileSize As Long
Dim Foto As New Class1
Dim file As String, FileTotal As Long
Dim Resolucion As Byte


       

Private Sub Form_Load()


   
 Timer1.Enabled = True
 
   
End Sub

 

Private Sub Timer1_Timer()

Dim Size As Long
    Dim arrData() As Byte
    Text3.Text = App.Path & "\capture.jpg"
Resolucion = "19"
   
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion
Foto.SampleScreen

Foto.SaveFile App.Path & ("\capture.jpg")

    Open Text3 For Binary Access Read As #1
   
   
    Size = LOF(1)
    ReDim arrData(Size - 1)
   
    'Leemos y almacenamos todo el fichero en el array
    Get #1, , arrData
    'Cerramos
    Close


Open App.Path & "\capture.avi" For Binary As #1

Put #1, , arrData
        Close #1
       
End Sub