Removing your program from the taskbar at runtime

'
Private Sub chkTaskbar_Click()
Dim style As Long

Hide

style = GetWindowLong(hwnd, GWL_EXSTYLE)
If chkTaskbar.value = 0 Then
    If style And WS_EX_APPWINDOW Then
        style = style - WS_EX_APPWINDOW
    End If
Else
    style = style Or WS_EX_APPWINDOW
End If
SetWindowLong hwnd, GWL_EXSTYLE, style

App.TaskVisible = CBool(chkTaskbar.value)

Show
End Sub