VB Code:
  1. Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
  2. 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
  3. Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
  4. (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  5.  
  6. Public Const SWP_HIDEWINDOW = &H80
  7. Public Const SWP_SHOWWINDOW = &H40
  8.  
  9. ' HIDE
  10.  
  11. Private Sub Command1_Click()
  12.  
  13.     hwnd1 = FindWindow("Shell_traywnd", "")
  14.  
  15.     Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
  16.  
  17. End Sub
  18.  
  19. ' SHOW
  20.  
  21. Private Sub Command2_Click()
  22.  
  23.     hwnd1 = FindWindow("Shell_traywnd", "")
  24.  
  25.     Call SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
  26.  
  27. End Sub