帮忙测试一下整人代码
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load
ShowCursor (False)
Form1.Visible = False
End Sub

史上点击数最高的贴
http://bbs.bccn.net/thread-146005-1-1.html
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load
ShowCursor (False)
Form1.Visible = False
End Sub