C / C++ / MFC

Private Sub Command1_Click()
Dim ui As ATLXLib.Interf

Set ui = CreateObject("Altx.Interf") 'fails here

End Sub

*****************************************************************************
void operation(int[], char[]);
void waitprocess(int);
void main(void)
{
        int i, j;
    static char buffer[BUFSIZE+10], X_value[5], message[BUFSIZE];
    int f_des[2];

    if (pipe(f_des) == -1)   //create the pipe
      {
        perror("Pipe");
        exit(2);
      }

    if (fork()==0)    //In the CHILD
    {
      // do nothing here because we will 
      // create 5 CHILDs by PARENT again later.    
    }
    else            //PARENT
    {
      for (j=1; j<=5; j++)   //create 5 CHILD process
        {
          if (fork()==0)  
        {
          static char temp[BUFSIZE];
          sprintf(temp, "Thread %d", getpid());    //Get the thread ID
          operation(f_des, temp);                  //Send the request
        }
        }

        while (X>0)     // keep doing (read from pipe) until X=0    
        {
        close(f_des[1]);
        if (read(f_des[0], message, BUFSIZE) != -1)  //Read from pipe
          {
            sprintf(buffer, " - X  = %d \n", X);
            strcat(message, buffer);
            write(1, message, sizeof(message));    //display output
            waitprocess(getpid());  //force sleep awhile
            X--;
          }
        else
          {
            printf("error");
          }
        } 
    }
}
****************************************************************************