Исходный текст

Option Explicit
Call HideAndShowMainWnd()


'==============================================================================
' Скрыть и восстановить главное окно TDMS
'==============================================================================
Sub HideAndShowMainWnd()

        'Скрыть главное окно приложения и "заснуть" на секунду
        ThisApplication.Visible = FALSE
        ThisApplication.Utility.Sleep 1000 'задержка в мс
        MsgBox "Сейчас главное окно TDMS будет восстановлено."
        'Восстановить главное окно.
        ThisApplication.Visible = TRUE
End Sub 
'==============================================================================