PowerBasic创建线程为什么总出错呢

wazs1100

黑体那句创建一个线程,为什么总是失败?返回的线程句柄idThread总是0
这个线程根本就没有创建成功啊!
大家帮忙看看什么问题,郁闷了~~


#COMPILE DLL
#DIM ALL

%USEMACROS = 1
#INCLUDE "Win32API.inc"

GLOBAL ghInstance AS DWORD
GLOBAL hDlg AS DWORD
'-------------------------------------------------------------------------------
' Main DLL entry point called by Windows...
'
FUNCTION??MyTest(BYVAL h AS LONG) AS LONG
'这个函数是测试线程的
msgbox "线程启动"
END FUNCTION


FUNCTION LIBMAIN (BYVAL hInstance?? AS LONG, BYVAL fwdReason?? AS LONG, BYVAL lpvReserved AS LONG) AS LONG
　　LOCAL idThread AS LONG
　　SELECT CASE fwdReason

　　CASE %DLL_PROCESS_ATTACH

　　THREAD CREATE MyTest(0) TO idThread
　　'这个MSGBOX是想看下idThread返回的值,总是返回0
　　MSGBOX STR$(idThread)
　　
　　ghInstance = hInstance
　　FUNCTION = 1

　　CASE %DLL_PROCESS_DETACH
　　MSGBOX "我退出了"
　　FUNCTION = 1

　　CASE %DLL_THREAD_ATTACH
　　FUNCTION = 1

　　CASE %DLL_THREAD_DETACH
　　FUNCTION = 1
　　END SELECT
END FUNCTION