Type | Description | |||
Long | A long expression that indicates the number of the last article in the news group. |
The following sample displays all subjects in the "security.bugs" news group:
Dim n As New EXNNTPLibCtl.NNTP Private Sub Form_Load() Dim g As EXNNTPLibCtl.Group, a As EXNNTPLibCtl.Article n.Connect "news.devx.com" Set g = n.Group("security.bugs") Dim i As Long i = g.Articles.First While Not i = -1 Set a = g.Articles.Item(i) Debug.Print a.XOver.Field("Subject") i = g.Articles.Next Wend n.Disconnect End Sub