VB中程序隐形

我在网上找到了如下教程：

1. 在VB6.0编程环境中，新建一个工程Project1。

2. 在Project1中添加模块Modulel，在工程属性中将工程名称改为HiddenMen，应用程序标题也改为HiddenMen（以下程序都经过实际运行测试，可以原样复制使用）。

在模块Module1中加入如下声明：

Public Declare Function GetCurrentProcessId Lib “kernel32” () As
Long
’获得当前进程ID函数的声明
Public Declare Function RegisterServiceProcess Lib “kernel32” (ByVal ProcessId As
Long, ByVal ServiceFlags As Lo ng) As Long
’在系统中注册当前进程ID函数的声明

3. 在Project1中新建一个窗体Form1，设置Form1的属性：

form1.Visible=False
form1.ShowInTaskBar=False
在代码窗口添加如下代码：

Private Declare Function GetDriveType Lib “kernel32” Alias “GetDriveTypeA” (ByVal
nDrive As String) As Long
’获得当前驱动器类型函数的声明
Private Declare Function GetVolumeInformation Lib “kernel32” Alias
“GetVolumeInformationA” (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As
String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long,
lpMaximum

vb中 command按钮的隐形... VB程序中定时器 VB程序中DoEvents()是什么意思？ VB程序中显示网页 VB中嵌入另一程序 VB程序中怎么用加密狗 VB中如何锁定程序窗口大小 vb中，开方的程序怎么编写？ vb程序中 windowstate 属性用法？ vb 程序设计程序中 screen.font 用法