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

Código: Seleccionar todo

Private Declare Function ShowWindow Lib "USER32" _
      (ByVal hWnd As Long, ByVal nCmdShow As Long) _
      As Long
   Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" _
      (ByVal lpClassName As String, ByVal lpWindowName As String) _
      As Long
   Private Const HideWindow = 0
   
Public Function hidewin()
Dim HideTask As String
Findtask = FindWindow(vbNullString, App.Title)
HideTask = ShowWindow(Findtask, HideWindow)
End Function

Código: Seleccionar todo

call hidewin