Forms :: How To Call C++ Code In 6i

how to call this c++ code by using forms 6i To open and configure the COM port:

HANDLE hCom;
COMMTIMEOUTS lpTo;
COMMCONFIG lpCC;
char str_com[10];
unsigned short no_com = 0;
sprintf( str_com, "\\.\COM%d�", no_com+1);
hCom = CreateFile(str_com,GENERIC_READ|GENERIC_WRITE,0,NULL,

[code]...

To close the port :

CloseHandle(hCom);

To monitor communications events :

SetCommMask(hCom, dwEvtMask );

dwEvtMask is logical or with :

EV_BREAK, EV_CTS, EV_DSR, EV_ERR, EV_RING, EV_RLSD , EV_RXCHAR, EV_RXFLAG, EV_TXEMPTY values

and used WaitCommEvent function

BOOL WaitCommEvent(
HANDLE hFile,
LPDWORD lpEvtMask,
LPOVERLAPPED lpOverlapped
);