VB8でpictureboxに高速にBITMAP画像を表示する

Question

VB6では

Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long

     　  Bitcor = 4  '32bit full color
        ImagSize = MatrixX(Selectsepa)
        Wigimage = Bitcor * ImagSize: '4はﾃﾞｰﾀの奥行き(ﾊﾞｲﾄ(32ﾋﾞｯﾄ))
   　　 ReDim Bytes1(Wigimage - 1, ImagSize - 1)
'-------------------画像のグレースケールを高速に変更

    For j = 0 To 255
    For i = 0 To 255
         g = (ima(i, j) - iMin) / im
         If g > 1 Then g = 1
         If g < 0 Then g = 0
         pp = Int(255 * g)
         Bytes1(j * Bitcor, i) = pp
         Bytes1(j * Bitcor + 1, i) = pp
         Bytes1(j * Bitcor + 2, i) = pp
    Next
    Next
’-----------------------------------------------------------

'----------ｂｉｔmapを高速に表示

 Hbmimage = db.Picture5.Image

Status = SetBitmapBits(Hbmimage, Wigimage * Hgtimage, Bytes1(0, 0))

'-------------------ピクチャー5の画像をピクチャ1に任意の大きさでこーピーする

Picture1.PaintPicture Picture5.Image, 0, 0, 128, 128, 0, 0, 256, 256   

これをVB8でおこなうにはどのようにすればよいのでしょうか