帮我将一个delphi代码修改成vb代码，图片相识度的代码

这是我找到的一个delphi判断2张图片相识度的代码，自己水平不够，请高手修改下，看看可以转成VB代码不，谢谢！
代码如下：function BitmapDifference(BmpA, BmpB: TBitmap): single;stdcall;
var
  x, y: integer;
  P, Q: PByte;
  Diff: int64;
begin
  if not assigned(BmpA) or not assigned(BmpB)
  or (BmpA.PixelFormat <> pf24bit) or (BmpB.PixelFormat <> pf24bit)
  or (BmpA.Width <> BmpB.Width) or (BmpA.Height <> BmpB.Height)
  or (BmpA.Width * BmpA.Height = 0) then
    raise Exception.Create('Cannot compare bitmaps');
  Diff := 0;
  for y := 0 to BmpA.Height - 1 do begin
    P := BmpA.Scanline[y];
    Q := BmpB.Scanline[y];
    for x := 0 to BmpA.Width - 1 do begin
      Diff := Diff + Sqr(P^ - Q^); inc(P); inc(Q);
      Diff := Diff + Sqr(P^ - Q^); inc(P); inc(Q);
      Diff := Diff + Sqr(P^ - Q^); inc(P); inc(Q);
    end;
  end;
  Result := Sqrt(Diff / (BmpA.Width * BmpA.Height));end;