Foro de elhacker.net

 Dim data As IDataObject
        Dim bmap As Image
        Dim ind_cap As Integer
        '
        ' Copy image to clipboard
        '
        SendMessage(hwdc, WM_CAP_EDIT_COPY, 0, 0)
        '
        ' Get image from clipboard and convert it to a bitmap
        '
        data = Clipboard.GetDataObject()
        If data.GetDataPresent(GetType(System.Drawing.Bitmap)) Then
            bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)), Image)
            If sfdImage.ShowDialog = DialogResult.OK Then
                bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
                ind_cap += 1
                sfdImage.FileName = "Captura" & ind_cap.ToString()
            End If
        End If