vb script 1025 error

[johnc3640]

I am puzzled why the following code returns a compilation error :1025.

I would appreciate any suggestions. Thanks.

The code is as follows:

VBSTART
Option Explicit

Dim handleW1 As Long

Private Declare Function FindWindowA Lib "user32"(ByVal lpClassName As String,ByVal lpWindowName As String) As Long

Private Declare Function SetWindowPos Lib "user32"(ByVal handleW1 As Long,ByVal handleW1InsertWhere As Long, ByVal w As Long,ByVal x As Long, ByVal y As Long, ByVal z As Long,ByVal wFlags As Long) As Long

Const TOGGLE_HIDEWINDOW = &H80
Const TOGGLE_UNHIDEWINDOW = &H40

Function HideTaskbar()
handleW1 = FindWindowA("Shell_traywnd", "")
Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_HIDEWINDOW)
End Function

Function UnhideTaskbar()
Call SetWindowPos(handleW1, 0, 0, 0, 0, 0, TOGGLE_UNHIDEWINDOW)
End Function
VBEND

VBEval>HideTaskbar

[Marcus Tettmar]

That code is not VBScript. It will not work in Macro Scheduler. VBSTART .. VBEND blocks work only with valid VBScript.