首先在一个模块中做如下声明：
PublicConstSW_HIDE=0
PublicConstGW_OWNER=4
DeclareFunctionGetWindowLib"user32"Alias"GetWindow"(ByValhwndAs_
Long,ByValwCmdAsLong)AsLong
DeclareFunctionShowWindowLib"user32"Alias"ShowWindow"(ByValhwnd_
AsLong,ByValnCmdShowAsLong)AsLong
将下面的代码添加到窗体的Load事件中：
DimrcAsLong
DimOwnerhWndAsLong
'让窗体不可见
Me.Visible=False
'从任务管理器列表中移除
OwnerhWnd=GetWindow(Me.hWnd,GW_OWNER)
rc=ShowWindow(OwnerhWnd,SW_HIDE)
请看本文中所用到的两个API函数GetWindow和ShowWindow的用法。
上一篇： 让你在VB进行Assembling编码
下一篇：让打印机只打印一行
