Проблемы с UDP Winsock

[kos]

Решил написать чат с помощью UDP. Все нормально. Работает. НО!

В 3-х случаях возникает ощибка с описанием "Run-time error '126'", либо вообще без описания:

1) первая отправка сообщения (последующие - все нормально)
2) инициализация
3) вообще при каждом действии с Винсоком (прога перестает норамльно функционировать).

Пишу подобную прогу впервые.
Буду весьма благодарен, если гуру помогут зеленому разобраться!

[Jenizix]

Ну а код покажи! у нас тут телепатов пока не наблюдается...

[kos]

Ну а код покажи! у нас тут телепатов пока не наблюдается...

Звиняюсь, думал, что ошибка общеизвестная..

Код: Выделить всё

Private Sub cmdRefresh_Click() ' процедура проверки наличия собеседника "на том конце провода"
  On Error GoTo 1
  ws.SendData "req"
  txtStatus.Text = "Проверка наличия соединения..."
1:
  If Err.Number <> 0 Then MsgBox "Произошла ошибка передачи данных. Повторите операцию", vbCritical: Exit Sub
End Sub

Private Sub Form_Load()
  On Error GoTo 1
  ...
  ws.Protocol = sckUDPProtocol
  ws.RemotePort = RemPort 'процедура проверки "на дурака" есть - с этой стороны ошибки быть не может
  ws.RemoteHost = RemIP
  ws.Bind LocPort   
1:
  If Err.Number <> 0 Then MsgBox "Произошла ошибка передачи данных. Повторите операцию", vbCritical: Exit Sub
End Sub

Private Sub lSendData(ByVal sData As String)
  On Error GoTo 1
  ws.SendData "msg" & sData
  txtOut.Text = ""
  txtStatus.Text = "Сообщение отправлено - ожидание отчета о получении..."
  txt.Text = txt.Text & "<" & LocNick & "< [" & Time & "] " & sData & vbCrLf & vbCrLf
1:
  If Err.Number <> 0 Then MsgBox "Произошла ошибка передачи данных. Повторите операцию", vbCritical: Exit Sub
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
  On Error GoTo 1
  Dim a
  ws.GetData a
  Select Case Left(Cstr(a), 3)
  Case "msg"
    a = CStr(a)
    txt.Text = txt.Text & ">" & RemNick & "> [" & Time & "] " & Right(a, Len(a) - 3) & vbCrLf & vbCrLf
    ws.SendData "okm"
    ...
  Case "req"
    ws.SendData "okr"
    ...
  Case "okm"
    MsgBox "Ваше сообщение принято!", vbInformation
    ...
  Case "okr"
    MsgBox "Соединение активно!", vbInformation
    ...
  End Select
1:
  If Err.Number <> 0 Then MsgBox "Произошла ошибка передачи данных. Повторите операцию", vbCritical: Exit Sub
End Sub