Use the Result event to monitor the responses from the server. Use the Command event  to notify your application about the commands that the client sends to the server. Use the Error event to monitor the errors on the server side.

The following sample displays the command that client sends, and the response from the server. The sample displays the name of the first news group available on the news server.

Dim WithEvents n As EXNNTPLibCtl.NNTP

Private Sub Form_Load()
    Dim g As EXNNTPLibCtl.Group
    Set n = New NNTP
    n.Connect "news.devx.com"
    Set g = n.Groups.Item(0)
    Debug.Print g.Name
    n.Disconnect
End Sub

Private Sub n_Command(ByVal Command As String)
    Debug.Print "Command: " & Command
End Sub

Private Sub n_Result(ByVal Body As String)
    Debug.Print "Result"
    Debug.Print Body
End Sub