Function IsFile(ByVal Filename As String) As Boolean
  On Error Resume Next
  IsFile = (GetAttr(Filename) And Not vbDirectory)
End Function

Function IsDir(ByVal sDir As String) As Boolean
On Error Resume Next
If sDir = vbNullString Then Exit Function
IsDir = ((GetAttr(sDir) And vbDirectory) = vbDirectory)
End Function

Function FillNum(Number As Long, Digits As Integer) As String
  If Len(CStr(Number)) > Digits Then Digits = Len(CStr(Number)) + 1
  
  FillNum = String$(Digits - Len(CStr(Number)), "0") & Number
End Function

Const RES_X = 680  'Resolución horizontal
Const RES_Y = 480  'Resolución vertical

Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Private hWndCap As Long

Private Sub Form_Load()
  'NOTA: picCapFrame es el nombre de un control PictureBox.
  '


  'Crea la ventana a la que se enviarán las imágenes de la cam.
  '
  hWndCap = capCreateCaptureWindow(vbNullString,0,0,0, RES_X, RES_Y, picCapFrame.hWnd, 0)
End Sub

Const WM_CAP_CONNECT = 1034     'Conecta el dispositivo de captura.
Const WM_CAP_DISCONNECT = 1035  'Desconecta el dispositivo de captura.
Const WM_CAP_GET_FRAME = 1084   'Obtiene un frame desde el dispositivo.
Const WM_CAP_COPY = 1054        'Copia el frame capturado con WM_CAP_GET_FRAME al portapapeles.

Private Sub Form_Unload(Cancel As Integer)
  Call sckConexion.Close
  End
End Sub