I have the following code in VB6 to create a picture object:
Dim IPic As IPicture
Private Declare Function OleCreatePictureIndirect _
Lib "olepro32.dll" ( PicDesc As PicBmp, RefIID As GUID, _
ByVal fPictureOwnsHandle As Long, IPic As Image) As Long
The IPic is to store the picture object created.
After I convert this code to VB.NET, it becomes
Dim IPic As Image
Private Declare Function OleCreatePictureIndirect _
Lib "olepro32.dll" ( PicDesc As PicBmp, RefIID As GUID, _
ByVal fPictureOwnsHandle As Integer, IPic As Image) As Integer
r = OleCreatePictureIndirect(Pic, IID_IDispatch, 1, IPic)
The problem is that IPic is now the data type of Image while the last parameter of the OleCreatePictureIndirect () function in olepro32.dll is still expecting a data type IPicture. So, when running the code, the program thows an execption that the data type is not matched.
Can someone help: how to solve this problem.
To see the all the code, please go to:
http://support.microsoft.com/default.aspx?scid=kb;en-us;161299
(This is to capture and print a VB6 form. Now I hope I could upgrade it to VB.NET)
Thanks,
