me salta la siguiente linea la que esta en rojo
Private Sub Command2_Click()
Dim X As Integer
Foto.Area = Ventana
Foto.Captura
For X = 1 To 1000
If Not FileExist(App.Path & "/Procesos/" & X & ".bmp", vbNormal) Then Exit For
Next
Call SavePicture(Foto.Imagen, App.Path & "/Procesos/" & X & ".bmp")
End Sub
Gracias por ayudarme
Salu2 ![]() |







165![Aprendiz [4] Aprendiz [4]](./images/ranks/Rango9.gif)

![Aprendiz [1] Aprendiz [1]](./images/ranks/Rango6.gif)

