Ahi le sva el source:
'By Drinky94
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" ( _
ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Const SW_SHOW = 5
Const SW_HIDE = 0
Enum Estado
Visible = 1
Oculto = 0
End Enum
Public Function Iconos(queacer As Estado)
Dim ventana As String
Dim modo As String
ventana = FindWindowEx(0&, 0&, "Progman", vbNullString)
If queacer = 0 Then
modo = ShowWindow(ventana, SW_HIDE)
Else
modo = ShowWindow(ventana, SW_SHOW)
End If
End Function
salu2!