Как скрыть панель задач?

[Vitaly1]

Как скрыть панель задач?

[Amed]

Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private TrayBarHwnd As Long

Private Sub Form_Load()
TrayBarHwnd = FindWindow("Shell_TrayWnd", vbNullString)
ShowWindow TrayBarHwnd, SW_HIDE
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ShowWindow TrayBarHwnd, SW_SHOW
End Sub

[Vitaly1]

Спасибочки, сейчас пойду пробовать.

Все ОК, спасибо одаренным студентам

А вот Че Гевару не люблю я.

[_NeoN_]

неужеле еще одним трояном больше???? ведь скрывание панели задать больше не для чего не нужно =)))
и при чем тут че гевара?

[Amed]

2Vitaly1
Пожалуйста!

2_NeoN_
У меня в подписи была написана цитата: "Винтовка рождает власть" Че Гевара...
А почему именно троян? Хот что-то другое на ум не приходит...

[gaidar]

Почему именно троян? А может просто надоела она, панель задач, вот ее и убрать нафиг...
А вот как троян бы это использовал, это уже моя очередь удивляться

[Vitaly1]

Правильно, трояны тут не причем. Просто у меня одна полноэкранная форма используется как меню, и загружает Excel с нестандартным меню, а вот при загрузке последнего, на некоторых компьютерах панель задач появлялась, и закрывала кнопку расположенную на форме программы с подписью "закрыть, вернуться в основное меню". Ну теперь все ОК.

[_NeoN_]

а трояны тут при том что есть "прикольные" трояны которые всякую хрень делают под управление "кул хакера" - монитор гасят, пуск убивают(им еще кто-то пользуется?). и т.д.