Visual Basic

Logger_FileName = "test.csv"<br />
CheckPath = Dir(ReportPath & Logger_FileName, vbDirectory)<br />
If CheckPath = "" Then

iFileNumTrend = FreeFile<br />
Open ReportPath & Logger_FileName For Append As #iFileNumTrend<br />
sReportHeader = "Date" & ", " & "Time"<br />
Print #iFileNumTrend, sReportHeader<br />
Close #iFileNumTrend<br />
End If

iFileNumbertrend = FreeFile  ' Get the free file number.<br />
Open ReportPath & Logger_FileName For Append As #iFileNumbertrend<br />
Print #iFileNumbertrend, sRecordString<br />
Close #iFileNumbertrend

Private Property MyRegionData() As Byte()
    Get
        Return Me.MyRegion.GetRegionData.Data
    End Get
    Set(ByVal value As Byte())
        Dim reg As New Region
        Dim data As Drawing2D.RegionData = reg.GetRegionData
        data.Data = value
        m_MyRegion = New Region(data)
        reg.Dispose()
    End Set
End Property

Private m_MyRegion As Region = Nothing
Public Property MyRegion() As Region
    Get
        Return m_MyRegion
    End Get
    Set(ByVal value As Region)
        If m_MyRegion IsNot Nothing Then
            m_MyRegion.Dispose()
        End If
        m_MyRegion = value
    End Set
End Property

Public Sub GetObjectData(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext) Implements ISerializable.GetObjectData
    info.AddValue("MyRegion", Me.MyRegionData, GetType(Byte()))
End Sub

Public Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
    MyBase.New()
    Me.MyRegionData = DirectCast(info.GetValue("MyRegion", GetType(Byte())), Byte())
End Sub