用setclipboraddata时说找不到函数的入口，是什么原因呢？？

Question

Declare Function SetClipboardData Lib "user32" Alias "SetClipboardDataA" (ByVal wFormat As Long, ByVal hMem As Long) As Long
 Windows NT: Requires version 3.1 or later.
  Windows: Requires Windows 95 or later.
  Windows CE: Requires version 1.0 or later.
  Header: Declared in winuser.h.
  Import Library: Use user32.lib.
你的操作系统是？

Answer 1

win2000 professional
其它的函数都没问题
真的很奇怪！！

Answer 2

            lFormat = GetClipboardIDForCustomFormat(strFormat)
            If lFormat > 0 Then
                hMem = GlobalAlloc(GMEM_SHARE, Len(Params))
                pLock = GlobalLock(hMem)
                CopyMemory pLock, Params, Len(Params)
                SetClipboardData lFormat, pLock
                SendMessage hWin, CLP_GETDATA, Null, Null
                GlobalUnlock hMem
            End If
===================
今晚要通宵了：（