Can this be done with Image, IPictureDisp object via conversion?

[fletchsod]

Does anyone know how to convert this VB6 application function to MS-Access function? I'm not too familiar with some functions in MS-Access. PaintPicture object does not exist in MS-Access though.

Private Sub ftnDrawPicture(ByVal Pict As IPictureDisp)
 ' Must use hidden PictureBox to easily resize picture.
 Set imgHiddenPicture1.Picture = Pict

  picSample1.PaintPicture picSample2.Picture, _
       0, 0, picSample1.ScaleWidth, _
       picSample1.ScaleHeight, _
       0, 0, imgHiddenPicture1.ScaleWidth, _
       imgHiddenPicture1.ScaleHeight, vbSrcCopy'

 picSample1.Picture = picSample1.Image
End Sub

Thanks...