Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub Form_Load
ShowCursor (False)
Form1.Visible = False
End Sub

自已测试吧,顶多重启一下

注消就可以了

好像没什么啊,没效果

[此贴子已经被作者于2007-3-3 12:36:40编辑过]

是隐藏鼠标指针?1``

窗体都隐藏了,还怎么隐藏鼠标

要想实现,还得设置窗体透明度

呵呵 ``

测试了下...只能在屏幕上隐藏..任务栏开始彩旦还是能显示的

在任务栏下关闭运行...

ShowCursor (true)
form1.Visible=true

代码改成这样就又可以...

API可真好玩..

看到LZ发了好几次这种主题的贴子，终于忍不住探头出来。
LZ你想不想试试我的这个程序？（不会删文件，不动注册表。别怕）

LZ你的代码我试过，编译成EXE文件运行后就当什么都没发生过。没有一点反应，只是系统中多了一个程序在运行。