Public Function MakeDIB()
        Dim a As New Bitmap("C:\1.jpg")
        My.Computer.Clipboard.SetData(System.Windows.Forms.DataFormats.Dib, a)
        Dim b = Nothing
        b = My.Computer.Clipboard.GetData(System.Windows.Forms.DataFormats.Dib)
End Function

______________________________________


www.fk-freeware.de.vu