Что сделать чтобы изображение, выведенное на форму не стиралось?

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dwRop As Integer = &HCC0020 'SRCCOPY    Копирование исходного прямоугольника непосредственно в прямоугольник-получатель без изменений
        Dim hWndSrc As Integer 'дескриптора окна-источника
        Dim hDCSrc As Integer  'дескриптор контекста устройства-источника
        Dim hDCDest As Integer  'дескриптор контекста устройства-получателя
        Dim iRes As Integer    'возвращаемое значение
        'Копируем весь экран в окно формы:
        hWndSrc = GetDesktopWindow()  'получаем идентификатор дескриптора окна рабочего стола (источник)
        hDCSrc = GetDC(hWndSrc)       'получаем идентификатор контекста устройства окна по его дескриптору (источник)
        hDCDest = GetDC(Me.Handle)     'получаем идентификатор контекста устройства окна по его дескриптору (получатель)
        iRes = BitBlt(hDCDest, 0, 0, Me.Width, Me.Height, hDCSrc, 0, 0, dwRop)
        iRes = ReleaseDC(hWndSrc, hDCSrc) 'освобождаем контекст устройства
        iRes = ReleaseDC(Me.Handle, hDCDest) 'освобождаем контекст устройства
    End Sub

iRes = BitBlt(hDCDest, 0, 0, Me.Width, Me.Height, hDCSrc, 0, 0, dwRop)

Me.BackgroundImage =bmp

'процедура захвата экрана
        Dim w As Integer = My.Computer.Screen.WorkingArea.Size.Width
        Dim h As Integer = My.Computer.Screen.WorkingArea.Size.Height
        Dim bmp As New System.Drawing.Bitmap(w, h)
        Dim gr As Graphics = Graphics.FromImage(bmp)
        gr.CopyFromScreen(New Point(0, 0), New Point(0, 0), New Size(w, h))
        Me.BackgroundImage = bmp