>Hi,
>Could someone help translate this VB code please...
>
>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
>
>Declare Function FindWindow Lib "user32" Alias _
>"FindWindowA" (ByVal lpClassName As String, ByVal _
>lpWindowName As String) As Long
>
>Const SWP_HIDEWINDOW = &H80
>Const SWP_SHOWWINDOW = &H40
>
>******Code to Hide the Taskbar
>
>Dim Thwnd as Long
>Thwnd = FindWindow("Shell_traywnd", "")
>Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
>
>*********Code to Show the Taskbar
>
>Dim Thwnd as Long
>Thwnd = FindWindow("Shell_traywnd", "")
>Call SetWindowPos(Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
>
>
>Thank you.
>
>regards
>
>Syah N
>
>
Declare integer SetWindowPos IN "user32.dll" ;
integer hwnd,;
integer hWndInsertAfter, ;
integer x, ;
integer y, ;
integer cx, ;
integer cy, ;
integer wFlags
DECLARE integer FindWindow in "user32.dll" string lpClassName, string lpWindowName
#define SWP_HIDEWINDOW 0x80
#define SWP_SHOWWINDOW 0x40
LOCAL Thwnd as integer
Thwnd = FindWindow("Shell_traywnd", "")
SetWindowPos(m.Thwnd, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
LOCAL Thwnd as integer
Thwnd = FindWindow("Shell_traywnd", "")
SetWindowPos(m.Thwnd, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
PS: Check ShAppBarMessage.
Cetin