使用socket进行TCP通讯时，会产生粘包现象。一个主要的原因是发送方采用nagle算法对发送的数据进行了缓冲处理，在VC下可以通过
const char chOpt=1;   
int   nErr=setsockopt(   m_socket,   IPPROTO_TCP,   TCP_NODELAY,   &chOpt,   sizeof(char));   
来达到数据立即发送的目的。
由于项目需要用到VB的winsock控件，因此请教VB下如何实现数据的立即发送？是否有相应的函数。

多谢。