008. xfnShellEnd

xfnShellEnd 함수

구문

반환값

참고

예제

코드

Private Sub cmdTest_Click()

    'xfnShellEnd 함수 Test

    Dim blnTest As Boolean

   

    '계산기 프로그램 실행

    blnTest = xfnShellEnd("CALC.EXE", 100, vbNormalNoFocus)

    

    '결과 보기

    Debug.Print blnTest

    'true 출력됨

 

End Sub