Winsock1.SendData为什么不能连续发数据

Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = "100"
Winsock1.RemoteHost = "192.168.5.183"
Winsock1.RemotePort = "100"

 Dim BufFile(0 To 23) As Byte
 Dim BufFile1(0 To 23) As Byte

 BufFile(0) = &H55
 BufFile(1) = &H6E
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0

Winsock1.SendData BufFile() 

 BufFile(0) = &H10
 BufFile(1) = &H29
 BufFile(2) = &H6
 BufFile(3) = &H0
........................此段略
 BufFile(23) = &H0

Winsock1.SendData BufFile()

第二次发数据时出现 “实时错误2”，是什么原因，Winsock1.SendData为什么不能连续发数据

两次发送间做一定的延时。

跟延时无关，因为有时中间暂停很久也不行