C / C++ / MFC

STARTUPINFO Task_SI;
    ZeroMemory(&Task_SI, sizeof(Task_SI));
    Task_SI.wShowWindow=SW_HIDE;
    Task_SI.dwFlags=STARTF_USESHOWWINDOW;
    Task_SI.cb = sizeof(Task_SI);
PROCESS_INFORMATION Task_PI;

    CreateProcess(
        NULL,   // pointer to name of executable module
        CmdStr, // pointer to command line string
        NULL,   // pointer to process security attributes
        NULL,   // pointer to thread security attributes
        0,  // handle inheritance flag
        CREATE_NEW_CONSOLE, // creation flags
        NULL,   // pointer to new environment block
        NULL,   // pointer to current directory name
        &Task_SI,   // pointer to STARTUPINFO
        &Task_PI    // pointer to PROCESS_INFORMATION
    );

GetExitCodeProcess(Task_PI.hProcess, ExitCode);
while(*ExitCode==STILL_ACTIVE){
    while(PeekMessage(&msg, NULL, 0, 0, PM_REMOVE))
    {
        TranslateMessage(&msg);
        DispatchMessage(&msg);
    }
    Sleep(100);
    GetExitCodeProcess(Task_PI.hProcess, ExitCode);
}

CloseHandle(Task_PI.hProcess);
CloseHandle(Task_PI.hThread);

<br />
Attribute VB_Name = "AstronomyFuncs"<br />
<br />
Declare Sub aa_hadec Lib "astro32" (ByVal lat As Double, ByVal Alt As Double, ByVal Az As Double, ByRef ha As Double, ByRef dec As Double)<br />
<br />
Declare Sub cal_mjd Lib "astro32" (ByVal mn As Long, ByVal dy As Double, ByVal yr As Long, ByRef mjd As Double)<br />

<br />
Attribute VB_Name = "AstronomyFuncs"<br />
<br />
Declare Sub aa_hadec Lib "astro32" (ByVal lat As Double, ByVal Alt As Double, ByVal Az As Double, ByRef ha As Double, ByRef dec As Double)<br />
<br />
Declare Sub cal_mjd Lib "astro32" (ByVal mn As Long, ByVal dy As Double, ByVal yr As Long, ByRef mjd As Double)<br />

UpdateWindow(hWnd);

InvalidateRect(hWnd, NULL, FALSE);