Visual Basic

Private Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
    Dim cBR As New BackgroundRetrieveProcess(m_strURL, m_strImageName)
    Dim t As System.Threading.Thread
    t = New System.Threading.Thread(AddressOf cBR.GetImageFile)
    t.Start()
End Sub

Public Class BackgroundRetrieveProcess
    Private m_strUrl As String = ""
    Private m_strPlotName As String = ""

    Public Sub New(ByVal URLAddress As String, ByVal PlotImageName As String)
        m_strUrl = URLAddress
        m_strPlotName = PlotImageName
    End Sub

    ''' <summary>
    ''' This is the bit that does the retrieval of the image from the web
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub GetImageFile()
        Try

            'do the business here

        Catch ex As Exception

            'bog out here if there is a problem

        End Try
    End Sub
End Class

Imports Microsoft.Office.Interop
Imports Microsoft.Office.Core
Imports System.Drawing.Imaging

Imports System.Runtime.InteropServices
Imports System.Diagnostics


Public Class Form1

    ' Start PowerPoint.
    Public ppApp As PowerPoint.Application

    ' Start counting number of times the take image button has been pressed by the user.
    Public num_times_pressed = 0

    ' Add a new presentation.
    Public ppPres As PowerPoint.Presentation


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
num_times_pressed = num_times_pressed + 1
    

        If num_times_pressed = 1 Then
            ppApp = CreateObject("Powerpoint.Application")

            ' Make it visible.
            ppApp.Visible = True

            ppPres = ppApp.Presentations.Add(MsoTriState.msoTrue)
            ppApp.WindowState = PowerPoint.PpWindowState.ppWindowMinimized

            

        End If

        ' Add a new slide.
        Dim ppSlide1 As PowerPoint.Slide
        Dim SlideCount As Long

        SlideCount = ppPres.Slides.Count
        ppSlide1 = ppPres.Slides.Add(SlideCount + 1, Microsoft.Office.Interop.PowerPoint.PpSlideLayout.ppLayoutBlank)

        Me.Hide()
        
        SendKeys.SendWait("%{Prtsc}")
        
        ppSlide1.Select()
        

        ppSlide1.Shapes.Paste()
        

        
        Me.Show()
            End Sub
End Class

'populates store data from store table

    Private Sub StoreList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StoreList1.SelectedIndexChanged
        Dim ItemSelected As String
        ItemSelected = StoreList1.SelectedValue
        Dim stdv As DataView
        Dim i As Integer
        Dim val(0) As String
        Dim st As New bL_vmi_calculatorDataSet._Master___StoreDataTable
        stdv = New DataView(st)
        stdv.Sort = "Store"


        val(0) = ItemSelected

        i = stdv.Find(val(0))


        RegionTextBox.Text = DataTableReader.Equals(i, 1)
       


    End Sub


    'populates titles info from master title list table with TITLE

    Private Sub TitleBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TitleBox1.SelectedIndexChanged, TitleBox1.SelectedValueChanged
        Dim ItemSelected As String
        ItemSelected = TitleBox1.SelectedValue
        Dim tldv As DataView
        Dim j As Integer
        Dim val(1) As String
        Dim tl As New bL_vmi_calculatorDataSet.Master_title_listDataTable
        tldv = New DataView(tl)
        tldv.Sort = "TITLE"


        val(1) = ItemSelected

        j = tldv.Find(val(1))


        PUBLISHERTextBox.Text = DataTableReader.Equals(j, 0)
        'UPCbox1.Enabled = False
        'SKUBox1.Enabled = False

    End Sub
    'populates titles info from master title list table with UPC
    Private Sub UPCbox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UPCbox1.SelectedIndexChanged
        Dim ItemSelected As String
        ItemSelected = TitleBox1.SelectedValue
        Dim tldv As DataView
        Dim j As Integer
        Dim val(0) As String
        Dim tl As New bL_vmi_calculatorDataSet.Master_title_listDataTable
        tldv = New DataView(tl)
        tldv.Sort = "UPC (12 Digit)"


        val(0) = ItemSelected

        j = tldv.Find(val(0))


        PUBLISHERTextBox.Text = DataTableReader.Equals(j, 3)
        'TitleBox1.Enabled = False
        'SKUBox1.Enabled = False
    End Sub
    'populates titles info from master title list table with SKU
    Private Sub SKUBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SKUBox1.SelectedIndexChanged
        Dim ItemSelected As String
        ItemSelected = TitleBox1.SelectedValue
        Dim tldv As DataView
        Dim j As Integer
        Dim val(2) As String
        Dim tl As New bL_vmi_calculatorDataSet.Master_title_listDataTable
        tldv = New DataView(tl)
        tldv.Sort = "BL SKU"


        val(2) = ItemSelected

        j = tldv.Find(val(2))


        PUBLISHERTextBox.Text = DataTableReader.Equals(j, 1)
        'UPCbox1.Enabled = False
        'TitleBox1.Enabled = False
    End Sub