VB高手进，VB怎样调用DLL中图片资源在Image控件中显示

我只会调用资源图片在PictureBox控件中显示，无让其图片也在Image控件中显示。
这是我的调用代码:
Public Sub LoadResPicture(ByVal strDllName As String, ByVal intPicName As Integer)
Dim hDLL As Long
Dim hdcMemory, hLoadedbitmap, hOldBitmap As Long
Dim retVal As Long
Dim bmpInfo As BITMAP
hDLL = LoadLibrary(App.Path & "\" & strDllName)
hLoadedbitmap = LoadBitmap(hDLL, intPicName)
retVal = GetObject(hLoadedbitmap, Len(bmpInfo), bmpInfo)
hdcMemory = CreateCompatibleDC(frmForm.Picture1.hdc)
hOldBitmap = SelectObject(hdcMemory, hLoadedbitmap)
retVal = BitBlt(frmForm.Picture1.hdc, 0, 0, bmpInfo.bmWidth, bmpInfo.bmHeight, hdcMemory, 0, 0, SRCCOPY)
retVal = SelectObject(hdcMemory, hOldBitmap)
retVal = DeleteObject(hLoadedbitmap)
retVal = DeleteDC(hdcMemory)
FreeLibrary (hDLL)
End Sub

VB怎样调用DLL中的资源 VB调用DLL VB调用MFC DLL vb调用 dll 奇怪问题 vb 调用dll 找不到入口 VB如何调用dll函数 VB调用dwmapi.dll文件 在VB怎样调用api VB怎样调用TXT文件? vb可以调用matlab吗,怎样调用?