Dim data As IDataObject
        data = Clipboard.GetDataObject()
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            Using bmap As Bitmap = CType(data.GetData(GetType( _
              System.Drawing.Bitmap)), Bitmap)
                Me.ScreenShot_box.Image = bmap
                Me.ScreenShot_box.Image.Save(theFile, Imaging.ImageFormat.Jpeg)
            End Using
        End If