各位大侠，我是VB新手，谁能给我一个最简单的创建线程的例子，谢谢！！！

Question

各位大侠，我是VB新手，谁能给我一个最简单的创建线程的例子，谢谢！！！

Answer 1

这是一个在“关闭程序”对话框中隐藏运行程序名称的例子：
在WIN98上调试成功
说明：在这里要用到API函数REGISTERSERVICEPROCESS和GETCURRENTPROCESSID，REGISTERSERVICEPROCESS与GETCURRENTPROCESSID是获取当前进程一个唯一标积符，并决定是否在系统中注册进程。
在窗体内画两个COMMAND，CAPTION一个为”隐藏”，另一个为“出现”.CONST RSP_SIMPCE_SERVICE=1
CONST RSP_UNREGISTER_SERVICE=0
PRIVATE DECLARE FUNCTION GETCURRENTPROCESSID (LIB "KERNEL32" ()AS LONG
PRIVATE DECLARE FUNCTION REGISTER SERVICEPROCESS LIB "KERNEL332" (BYVAL DWPROCESSID AS LONG,BYVAL DWTYPE AS LONG)AS LONGprivate sub command1_CLICK()
dim pid as long
dim regserv as long
pid = getcurrentprocessid()'获取当前进程一个唯一的标识符
regserv=registerserviceprocess(pid,RSP_SIMPCE_SERVICE)'不在“关闭程序”内显示
end sub
private sub command2_CLICK()
dim pid as long
dim regserv as long
pid = getcurrentprocessid()
regserv=registerserviceprocess(pid,RSP_UNREGISTER_SERVICE)
end sub