Jobs
Author: Thejan J Rajapakshe Date Submitted: 3/1/2007 Category: Security Code and Programs Compatibility: VB 6 This code has been accessed 2883 times.
Email Yourself this snippet:
Dim hwnd1 As Long Private 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 Private 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
'Hide The Task Bar 'Place the following code in under a command button or in a menu, etc... hwnd1 = FindWindow("Shell_traywnd", "") Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) 'Show The Task Bar Place the following code in under a command button or in a menu, etc... Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
