메신저 프로그램 소스 중 일부입니다.
'///////////////// 서버에서 온 데이터를 처리... ///////////////
Private Sub Client_Sock_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Do Until SendReady = True
Loop
Dim TxtData As String '전송받는 데이터
Dim VarTxtData As Variant '나누어질 데이터
Dim i As Integer '루프를 돌릴 변수
Di