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