Visual Basic

Imports Microsoft.Office.Interop.Excel

Public Function fExportToExcel() As Boolean

    Dim xlApp As Microsoft.Office.Interop.Excel.Application
    Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
    Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
    Dim missingValue As Object = System.Reflection.Missing.Value


    Try

      xlApp = New Microsoft.Office.Interop.Excel.Application        <code><<== FAILS HERE</code>
      xlBook = xlApp.Workbooks.Add(missingValue)
      xlSheet = CType(xlBook.Sheets("Sheet1"), Microsoft.Office.Interop.Excel.Worksheet)
      xlSheet.Name = My.Application.Info.AssemblyName.ToString

<snip>

Identity {00020813-0000-0000-C000-000000000046}\1.5\0\primary<br />
Path C:\WINDOWS\assembly\GAC\Microsoft.Office.Interop.Excel\11.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll

 Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim CAP_PRAMS As New CAPTUREPARMS()

SendMessage(hWnd, WM_CAP_GET_SEQUENCE_SETUP, Len(CAP_PRAMS), CAP_PRAMS)

With CAP_PRAMS
CAP_PRAMS.fLimitEnabled = True
CAP_PRAMS.wTimeLimit = 5
End With

SendMessage(hWnd, WM_CAP_SET_SEQUENCE_SETUP, Len(CAP_PRAMS), CAP_PRAMS)

SendMessage(hWnd, WM_CAP_SEQUENCE, 0, 0)

SendMessage(hWnd, WM_CAP_FILE_SAVEAS, 0, _
"C:\Video1.avi")
End Sub