TWMVScrollClipboard = packed record
  Msg: Cardinal;
  Viewer: HWND;
  ScollCode: Word;
  ThumbPos: Word;
  Result: Longint;
end;

struct TWMVScrollClipboard {
  unsigned Msg;
  HWND Viewer;
  Word ScollCode;
  Word ThumbPos;
  Longint Result;
};