我做了个全屏的界面。。用shell调用了个notepad程序。。当调用时就会出现任务兰。。。如何能不让其出现任务栏 谢谢

帮帮忙 阿 谢谢

'//添加一个CommandOption ExplicitPrivate Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongConst SWP_HIDEWINDOW = &H80Const SWP_SHOWWINDOW = &H40Private Sub Command1_Click()Shell "notepad.exe", vbNormalFocusEnd SubPrivate Sub Form_Load()Me.Move 0, 0, Screen.Width, Screen.HeightCall HideTrayEnd SubPrivate Sub HideTray() Dim Thwnd As Long Thwnd = FindWindow("Shell_traywnd", "") Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)End SubPrivate Sub ShowTray() Dim Thwnd As Long Thwnd = FindWindow("Shell_traywnd", "") Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)End SubPrivate Sub Form_Unload(Cancel As Integer)Call ShowTrayEnd Sub

shell "notepad",0