GetDIB example for Visual Basic

'This example gets the image from LEAD1 as a V5 DIB
'and then loads the DIB into LEAD2

Private Sub Command1_Click()
Dim MyDIB As OLE_HANDLE

'LEAD1 has an image at this point
MyDIB = LEAD1.GetDIB(DIB_BITMAPV5HEADER)
LEAD2.SetDIB (MyDIB)

'Free the DIB using the Windows API
GlobalFree MyDIB
End Sub