Article Writing

<pre>Friend ThreadResults As New List(Of Thread_History_Class)()

    Public Class Thread_History_Class

    Private _FrequencyID As Int64 = 0
    Private _Port As Int32 = 0
    Private _ResultTxt As String = ""
    Private _Success As Boolean = False

    Friend Sub New()
' do nothing

    End Sub

    Friend Sub New(ByVal FrequencyID As Int64,
                   ByVal Port As Int32,
                   ByVal ResultTxt As String,
                   ByVal Success As Boolean)

  Friend Property Success() As Boolean
        Get
            Return _Success
        End Get
        Set(value As Boolean)
            _Success = value
        End Set
    End Property

        Friend Property ResultTxt() As String
        Get
            Return _ResultTxt
        End Get
        Set(value As String)
            _ResultTxt = value
        End Set
    End Property

    Friend Property Port() As Int32
        Get
            Return _Port
        End Get
        Set(value As Int32)
            _Port = value
        End Set
    End Property

    Friend Property FrequencyID() As Int64
        Get
            Return _FrequencyID
        End Get
        Set(value As Int64)
            _FrequencyID = value
        End Set
    End Property

End Class