已解决,未通过控件而是发现通过TWAIN协议发现扫描的图片就可以显示在Image图像框中(目的是无论大小图片都显示固定大小),代码如下:
Dim Ret As Long, PictureFile As String
PictureFile = App.Path & "\temp.bmp"
Ret = TWAIN_AcquireToFilename(Me.hWnd, PictureFile)
If Ret = 0 Then
'If the scan is successful
Image1.Picture = LoadPicture(PictureFile)
'Kill PictureFile
MsgBox "扫描成功!", vbCritical, "扫描"
Else
MsgBox "扫描不成功!", vbCritical, "扫描"
End If