Código: Seleccionar todo

'USER32
Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Const SW_HIDE   As Long = 0
Private Const SW_NORMAL As Long = 1
Private Const CLASSNAME As String = "ThunderRT6Main"
 
Public Sub AppTaskVisible(ByVal bVisible As Boolean)
    Dim lHwnd           As Long
 
    lHwnd = FindWindowA(CLASSNAME, App.Title)
    If lHwnd Then
        Call ShowWindow(lHwnd, IIf((bVisible = True), SW_NORMAL, SW_HIDE))
    End If
End Sub