• Home
 · 
• Encryption
 · 
• This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer.

This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer.

This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer.

API Declarations


"user32" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) 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



Rate This Will Hide The Application Bar If For Some Reason You Need To Limit The Use Of A Computer.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'To UnHide It, Type In... ViewTaskBar(True)
Private Sub ViewTaskBar(lbValue As Boolean)
Dim llResult As Long
llResult = FindWindow("Shell_traywnd", "")
If llResult Then
If lbValue Then
llResult = SetWindowPos(llResult, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
Else
llResult = SetWindowPos(llResult, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End If
End Sub