Private Sub Command1_Click()
Dim Captura As New cJpeg

        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen   'Me da error aca
        Captura.SaveFile ("c:\" & "\mu" & ".jpg")

End Sub

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Form_Load()
App.TaskVisible = False
'Captura toda la pantalla
keybd_event 44, 0, 0&, 0&
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Call SavePicture(Clipboard.GetData(vbCFBitmap), "C:\img.gif")
Timer1.Enabled = False
End
End Sub