秋天的树

       Private Sub DrawCell(ByVal iIndex As Int16, ByVal eStyle As HatchStyle, ByVal s As String)        Const cW = 100        Const cCol = 10        Dim iX As Int16        Dim iY As Int16      

Private Function ReplaceRtfFullQuotes(ByVal TextRTF As String) As String    Dim sText As String            sText = Replace(TextRTF, "\ldblquote ", "“")    sText = Replace(sText, "\ldblquote", "“")    ...