Load BITMAP

'Load BITMAP



Const LR_LOADFROMFILE = &H10

Const IMAGE_BITMAP = 0

Const IMAGE_ICON = 1

Const IMAGE_CURSOR = 2

Const IMAGE_ENHMETAFILE = 3

Const CF_BITMAP = 2



Private Declare Function LoadImage Lib "user32"
Alias "LoadImageA" _

(ByVal hInst As Long, ByVal lpsz
As String, _

ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, _

ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long



Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function OpenClipboard Lib "user32" _

(ByVal hwnd As Long) As Long



Private Declare Function EmptyClipboard Lib "user32" () As Long

Private Declare Function SetClipboardData Lib "user32" _

(ByVal wFormat As Long, ByVal hMem As Long) As Long



Private Declare Function IsClipboardFormatAvailable Lib "user32" _

(ByVal wFormat As Long) As Long



Private Sub Form_Load()

Dim hDC As Long, hBitmap As Long

'Load the bitmap into the memory

hBitmap = LoadImage(App.hInstance, "C:\WINDOWS\Web\Wallpaper\bliss.bmp", _

IMAGE_BITMAP, 320, 200, LR_LOADFROMFILE)

If hBitmap = 0 Then

MsgBox "There was an error while loading the bitmap"

Exit Sub

End If



'open the clipboard

OpenClipboard Me.hwnd

'Clear the clipboard

EmptyClipboard

'Put our bitmap onto the clipboard

SetClipboardData CF_BITMAP, hBitmap

'Check if there's a bitmap on the clipboard



If IsClipboardFormatAvailable(CF_BITMAP) = 0 Then

MsgBox "Error, no BITMAP!!!"

End If



'Close the clipboard

CloseClipboard

'Get the picture from the clipboard

Me.Picture = Clipboard.GetData(vbCFBitmap)

End Sub