1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
Private Declare Auto Function FindWindow Lib "user32" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) _
As Integer
Private Declare Auto Sub SetWindowPos Lib "User32" ( _
ByVal hWnd As Integer, _
ByVal hWndInsertAfter As Integer, _
ByVal X As Integer, _
ByVal Y As Integer, _
ByVal cx As Integer, _
ByVal cy As Integer, _
ByVal wFlags As Integer)
Public Sub TaskBarVisible(ByVal Visible As Boolean)
Dim Handle As Integer = FindWindow("Shell_TrayWnd", "")
If Visible = True Then
SetWindowPos(Handle, 0, 0, 0, 0, 0, 64)
Else
SetWindowPos(Handle, 0, 0, 0, 0, 0, 128)
End If
End Sub
|