* * * Bloquer Barra de Tareas y Menu de Inicio * * *

[kakarot]

prueba de hacer sto, en NT parece funcionar, es para ocultarla

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName_

As String, ByVal lpWindowName As String) As Long

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 Long

Global Ventana As Long

Global Const Muestra = &H40

Global Const Oculta = &H80

Private Sub Command1_Click()

Ventana = FindWindow("Shell_traywnd", ""

Call SetWindowPos(Ventana, 0, 0, 0, 0, 0, Oculta)

End Sub