Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String)

Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long          

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds _
As Long)

Public Const WM_CLOSE = &H10
Private m_sEXEName As String
Private m_sDosCaption As String 

Public Sub RunDosApp()
Dim vReturnValue As Variant
Dim lRet As Long
Dim i As Integer

vReturnValue = Shell(m_sEXEName, 1) ' Run EXE
AppActivate vReturnValue ' Activate EXE Window

Do

Sleep (10000)

lRet = FindWindow(vbNullString, m_sDosCaption)

If (lRet <> 0) Then
  vReturnValue = SendMessage(lRet, WM_CLOSE, &O0, &O0)
  Exit Do
End If

Loop

End Sub

Private Sub cmdCloseDOS_Click()
RunDosApp
End Sub