windows functions help _ urgently plz

does anybody know how to disable the auto hide property of the task bar on the desk top
my app has a full screen form that is supposed to prevent access to the desktop but if autohide is enabled , then the form does not do its job , because the (hidden) taskbar comes up when the mouse is moved to the bottom of the desktop.
plz help , i must submit this app to a magazine and i dont want a bug to ruin my reputation.

thanks

Why not just hide the taskbar all together?

Code:

---

Declare Function FindWindow Lib "user32" _
 Alias "FindWindowA" (ByVal lpClassName As String, ByVal _
lpWindowName As String) As Long

Declare Function ShowWindow Lib "user32" Alias "ShowWindow" _
 (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const SW_HIDE = 0
Public Const SW_SHOW = 5

Dim tray
Dim trayShow

Usage

Private Sub Command1_Click()
'Hide
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_HIDE)
End Sub

Private Sub Command2_Click()
'Show
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_SHOW)
End Sub

---

thanx man ,it works like a dream.

Change:

Dim tray
Dim trayShow

Private Sub Command1_Click()
'Hide
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_HIDE)
End Sub

Private Sub Command2_Click()
'Show
tray = FindWindow("Shell_TrayWnd", vbNullString)
trayShow = ShowWindow(tray, SW_SHOW)
End Sub

To:

Dim tray&
Dim trayShow&

Private Sub Command1_Click()
'Hide
tray& = FindWindow("Shell_TrayWnd", vbNullString)
trayShow& = ShowWindow(tray, SW_HIDE)
End Sub

Private Sub Command2_Click()
'Show
tray& = FindWindow("Shell_TrayWnd", vbNullString)
trayShow& = ShowWindow(tray, SW_SHOW)
End Sub



Sorry bout that.

[Edited by Matthew Gates on 11-16-2000 at 04:16 PM]