VB程序调试不成功

程序代码是书上的
Const RSP_SIMPLE_SERVICE=1
Const RSP_UNREGISTER_SERVICE=0
Private Declare Function GetCurrentProcessId Lib "kernel32"() As Long
Private Declare Function RegisterServiceProcess Lib "kernel32"(byval dwProcessID As Long,byval dwType As Long)As Long

public sub MakeMeService()
dim pid as long,regserv as long
'获取当前进程ID
pid=getcurrentprocessid()
'注册为系统服务
regserv=registerserviceprocess(pid ,RSP_SIMPLE_SERVICE)
end sub

public sub UnMakeMeService()
dim pid as long,regserv as long
'获取当前进程ID
pid=getcurrentprocessid()
'注销为系统服务
regserv=registerserviceprocess(pid ,RSP_UNREGISTER_SERVICE)
end sub

private sub form_load()
MakeMeService
end sub

private sub form_unload(cancle as integer)
UnMakeMeService
end sub
你说的没用

VB程序调试不成功 一个VB程序老是调试错误 VB上只能调试,谁能教我把调试好的程序变成真正的程序 用VB记事本程序发送F5键不成功，请求帮助 调试程序？ 程序调试 IIS安装调试不成功怎么办 安装iis后调试不成功 VB安装不成功 vb 调试问题