Visual Basic

Public Function myCallBack(ByVal lwnd As Long, ByVal lpVHdr As Long) As Boolean
        Dim VideoData() As Byte
        Dim gh As Runtime.InteropServices.GCHandle _
            = Runtime.InteropServices.GCHandle.Alloc _
                (lpVHdr, Runtime.InteropServices.GCHandleType.Pinned)

        Dim AddrOflpVHdr As IntPtr = gh.AddrOfPinnedObject()

        Dim VideoHeader As New VIDEOHDR
        Marshal.PtrToStructure(AddrOflpVHdr, VideoHeader)

        gh.Free()

    End Function

<br />
    Structure VIDEOHDR<br />
        Dim lpData As Integer '// address of video buffer<br />
        Dim dwBufferLength As Integer '// size, in bytes, of the Data buffer<br />
        Dim dwBytesUsed As Integer '// see below<br />
        Dim dwTimeCaptured As Integer '// see below<br />
        Dim dwUser As Integer '// user-specific data<br />
        Dim dwFlags As Integer '// see below<br />
        <VBFixedArray(3)> Dim dwReserved() As Integer '// reserved; do not use}<br />
<br />
        'UPGRADE_TODO: "Initialize" must be called to initialize instances of this structure. Click for more: 'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1026"'<br />
        Public Sub Initialize()<br />
            ReDim dwReserved(3)<br />
        End Sub<br />
<br />
    End Structure<br />

<br />
Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)<br />
   trdSocket.Abort  <br />
   End<br />
End Sub<br />