Как сохранить картинку из буфера обмена в .jpg

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not System.Windows.Forms.Clipboard.GetDataObject() Is Nothing Then
            Dim oDataObj As IDataObject = System.Windows.Forms.Clipboard.GetDataObject()
            If oDataObj.GetDataPresent(System.Windows.Forms.DataFormats.Bitmap) Then
                Dim oImgObj As System.Drawing.Image = oDataObj.GetData(DataFormats.Bitmap, True)
                'To Save as Bitmap
                oImgObj.Save("c:\Test.bmp", System.Drawing.Imaging.ImageFormat.Bmp)
                'To Save as Jpeg
                oImgObj.Save("c:\Test.jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
                'To Save as Gif
                oImgObj.Save("c:\Test.gif", System.Drawing.Imaging.ImageFormat.Gif)
            End If
        End If
    End Sub

SendKeys.Send("%{PRTSC}")

Imports System.Threading
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WindowState = FormWindowState.Minimized
        Thread.Sleep(2000) ' две секунды чтобы переключиться на активное окно
        SendKeys.SendWait("{PRTSC}")
        Dim P As IDataObject = Clipboard.GetDataObject
        Dim bmap As Bitmap
        bmap = CType(P.GetData(GetType(System.Drawing.Bitmap)), Bitmap)
        Dim h$ = Now.Date & "_" & Now.Hour & "_" & Now.Minute & "_" & Now.Millisecond
        Dim File$ = "D:\lop\tes.bmp" ' создайте папку "lop" на диске D
        Dim Ins$ = File.Insert(10, h)
        bmap.Save(Ins)
        WindowState = FormWindowState.Normal
    End Sub
End Class