Visual Basic

Me.PictureBox1.Image = My.Resources.imgs.image1

Imports System.Data.SqlClient 'before class constructor

    Dim SQLStr As String
    Private ConnString As String
    'after class constructor

'the following is within a sub
        ConnString = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\statsdata.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

        SQLStr = "SELECT imgreference FROM tblImages WHERE (number = " + Me.ComboBox1.SelectedIndex + ")"

        Dim SQLConn As New SqlConnection() 'The SQL Connection
        Dim SQLCmd As New SqlCommand() 'The SQL Command
        Dim SQLdr As SqlDataReader        'The Local Data Store
        Dim text As String
        Dim img As Image = Nothing

        SQLConn.ConnectionString = ConnString 'Set the Connection String
        Try
            SQLConn.Open() 'Open the connection

            SQLCmd.Connection = SQLConn 'Sets the Connection to use with the SQL Command
            SQLCmd.CommandText = SQLStr 'Sets the SQL String
            SQLdr = SQLCmd.ExecuteReader() 'Executes SQL Commands Non-Querys only

            SQLdr.Read()
            text = SQLdr.GetString(0)

            SQLdr.Close() 'Close the SQLDataReader   
            SQLConn.Close() 'Close the connection

            'This is where I would change the reference of the image
            'E.g. Me.PictureBox1.Image = text - except I have to cast text from type String to type Image
            
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Somethings wrong!!")
        End Try

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