' ZVI:2010-12-14 Form code
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Private Const GWL_EXSTYLE = - 20 
Private Const WS_EX_APPWINDOW = &H40000

Private Sub Form_Load()
  ' Hide Form from the taskbar as loading
  'SetWindowLong hWnd, GWL_EXSTYLE, (GetWindowLong(hWnd, GWL_EXSTYLE) And Not WS_EX_APPWINDOW)
End Sub

Private Sub cmdHideFromTaskbar_Click()
  ' Freeze the window
  LockWindowUpdate hWnd
  ' Hide Form
  Me.Hide
  ' Hide Form from the taskbar
  SetWindowLong hWnd, GWL_EXSTYLE, (GetWindowLong(hWnd, GWL_EXSTYLE) And Not WS_EX_APPWINDOW)
  ' Show Form
  Me.Show
  ' Release the lock
  LockWindowUpdate  0 &
End Sub

Private Sub cmdShowInTaskbar_Click()
  ' Freeze the window
  LockWindowUpdate hWnd
  ' Hide the form
  Me.Hide
  ' Show this form on the taskbar
  SetWindowLong hWnd, GWL_EXSTYLE, (GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_APPWINDOW)
  ' Show Form
  Me.Show
  ' Release the lock
  LockWindowUpdate  0 &
End Sub

Private Sub cmdExit_Click()
  Unload Me
End Sub