Public Class Class1_Listing
    Inherits List(Of Class1)
 
    Public Property Title As String
 
    Public Sub SpecialDelete()
 
        For i As Integer = Me.Count - 1 To 0 Step -1
            If i Mod 3 = 0 Then
                Me.RemoveAt(i)
            End If
        Next i
    End Sub
 
End Class