El codigo es:
Código PHP:
VB6.FixedLengthString(100)
Código PHP:
Private Sub frmCamara_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
Dim lpszName As New VB6.FixedLengthString(100)
Dim lpszVer As New VB6.FixedLengthString(100)
capGetDriverDescriptionA(0, lpszName.Value, 100, lpszVer.Value, 100)
lwndC = capCreateCaptureWindowA(lpszName.Value, WS_VISIBLE Or WS_CHILD, 15, 28, 320, 242, Me.Handle.ToInt32, 0)
If capDriverConnect(lwndC, 0) Then
capPreviewScale(lwndC, True)
capPreviewRate(lwndC, 50)
capPreview(lwndC, True)
End If
End Sub