Sub fixIconProblem(sDoc As NotesDocument, tDoc As NotesDocument)
  Dim tmpDoc As NotesDocument
 
  If sDoc Is Nothing Or tDoc Is Nothing Then
    Exit Sub
  End If
 
  Set tmpDoc = tDoc.ParentDatabase.CreateDocument
 
  Call sDoc.CopyAllItems(tmpDoc)
 
  Forall i In sDoc.Items
    Set item = i
    If Not(item.Type = 1084 Or item.Type = 1085) Then
      tmpDoc.RemoveItem(item.Name)
    End If			
  End Forall
 
  Call tmpDoc.CopyAllItems(tDoc)
End Sub

Sub Postsave(Source As Notesuidocument)
  Call  aDocumentDiffer.process(Source.Document)
 
  Dim targetList$ List 
  targetList$("Title") = "タイトル"
  targetList$("Description") = "概要"
 
  Msgbox aDocumentDiffer.toStringWithLabel(targetList$)
End Sub

Function toStringWithLabel(labelList$ List) As String
  toStringWithLabel = ""
  If Me.diffDoc Is Nothing Then
    Exit Function
  End If
 
  Forall item In Me.diffDoc.Items
    If Iselement(labelList(item.Name)) = True Then
      toStringWithLabel = toStringWithLabel
          & labelList(item.Name) & ": "
          & Me.getOldValue(item.Name)
          & " -> "
          & item.Text & Chr(10)
    End If
  End Forall
End Function

Sub workWith(coWoker As Variant)
  If coWoker Isa "CoreLog" Then
    Call coWoker.logText(toString())
  End If
End Sub

Sub workWith(coWoker As Variant)
  If Typename(coWoker) = "CORELOG" Then
    Call coWoker.logText(toString())
  End If
End Sub

Sub workWith(coWoker As Variant)
  If Typename(coWoker) = "CoreLog" Then
    Call coWoker.logText(toString())
  End If
End Sub

Sub addItem(doc As NotesDocument, itemName$)
  Dim tmpItem As NotesItem 
 
  Set tmpItem = doc.getFirstItem(itemName$)
  If Not(tmpItem Is Nothing) Then 
    Call tmpItem.CopyItemToDocument(Me.oldDoc, itemName$) 
  End If
End Sub
 
Sub removeItem(itemName$)
  Call Me.oldDoc.removeItem(itemName$)
End Sub

Function getOldValue(itemName$) As String
  Dim tmpItem As NotesItem
 
  Set tmpItem = Me.oldDoc.getFirstItem(itemName$)
  If Not(tmpItem Is Nothing) Then
    getOldValue = tmpItem.Text
  End If
End Function

Function toString() As String
  toString = ""
  If Me.diffDoc Is Nothing Then
    Exit Function
  End If
 
  Forall item In Me.diffDoc.Items
    toString = toString & item.Name & ": " &
      Me.getOldValue(item.Name) & " -> " &
      item.Text & Chr(10)
  End Forall
End Function

  ' ---- Public methods ----
 
  Function process(doc As NotesDocument) As NotesDocument
    Dim session As New NotesSession 
    Dim tmpItem As NotesItem
 
    ' 差分文書が残っている場合は再作成
    If Not(Me.diffDoc Is Nothing) Then
      Delete Me.diffDoc
    End If
    Set Me.diffDoc = session.CurrentDatabase.CreateDocument
 
    ' アイテムごとに更新を確認
    Forall item In Me.oldDoc.Items
      If doc.HasItem(item.Name) Then
        Set tmpItem = doc.GetFirstItem(item.Name)
        If tmpItem.Text <> item.Text Then
          Call item.CopyItemToDocument(Me.diffDoc, item.Name)
        End If
      End If
    End Forall
 
    Set process = Me.diffDoc
  End Function

Public Class DocumentDiffer
  Private oldDoc As NotesDocument
  Private diffDoc As NotesDocument
 
  ' ---- Constractor/Destractor methods ----
 
  Sub New(doc As NotesDocument)
    Dim session As New NotesSession 
    Set Me.oldDoc = session.CurrentDatabase.CreateDocument
 
    Forall item In doc.Items
      If item.Type = DATETIMES Or item.Type = NAMES Or
            item.Type = NUMBERS Or item.Type = TEXT Then
        If Left$(item.Name, 1) <> "$" Then
          Call item.CopyItemToDocument(Me.oldDoc, item.Name)
        End If
      End If 
    End Forall 
  End Sub
 
  Sub Delete
    Delete Me.oldDoc
    If Not(Me.diffDoc Is Nothing) Then
      Delete Me.diffDoc
    End If
  End Sub
End Class

Dim aDocumentDiffer As DocumentDiffer

Sub Postmodechange(Source As Notesuidocument)
  ' 文書の変更前の状態をバックアップ
  If Source.EditMode = True Then
    Set aDocumentDiffer = New DocumentDiffer(Source.Document)
  End If
End Sub
 
Sub Postsave(Source As Notesuidocument)
  ' 変更前との差分を作成
  Call  aDocumentDiffer.process(Source.Document)
  ' 今回の例では単にポップアップ表示するだけ
  Msgbox aDocumentDiffer.toString
End Sub

Class Cat
  Sub test
    Msgbox |nya-|
  End Sub
End Class
 
Class Dog
  Sub test
    Msgbox |bow!|
  End Sub 
End Class

Sub Click(Source As Button)
  Dim aCat As New Cat
  Dim aDog As New Dog
 
  Call aCat.test
  Call aDog.test 
End Sub

Sub doTest(target As Variant) 
  If target Isa "Panda" Then
    Call target.test 
    Call target.testPanda 
  Elseif target Isa "Cat" Or target Isa "Dog" Then
    Call target.test
  End If
End Sub

Sub Click(Source As Button)
  Dim aCat As Variant
  Dim aDog As Variant
 
  Set aCat = New Cat
  Set aDog = New Dog
 
  Call doTest(aCat)
  Call doTest(aDog)
End Sub

Public Class CoreLog
  Sub New()
    Call New(Nothing, 2, "default log")
  End Sub 
 
  Sub New(logType$)
    Call New(Nothing, 2, logType$)
  End Sub
 
  Sub New(doc As NotesDocument, level%, logType$)
    ....
  End Sub
End Class

SELECT FORM!="A Form" & FORM!="B Form" & FORM!="C Form"

Sub Initialize
  Dim session As New NotesSession
  Dim ws As New NotesUIWorkspace
  Dim doc As NotesDocument
  Dim rti As NotesRichTextItem
  Dim color As NotesColorObject
 
  Set doc = ws.CurrentDocument.Document	
  Set color = session.CreateColorObject
  Call doc.RemoveItem("Body")
  Set rti = doc.CreateRichTextItem("Body")
 
  For i = 0 To 240
    color.NotesColor = i
    Call rti.AppendText(|c[| & Cstr(i) & |] = "#|)
    Call rti.AppendText(Right$("00" & Hex$(color.Red), 2))
    Call rti.AppendText(Right$("00" & Hex$(color.Green), 2))
    Call rti.AppendText(Right$("00" & Hex$(color.Blue), 2))
    Call rti.AppendText(|";|)		
    Call rti.AddNewLine(1)
  Next
  Call doc.Save(True, True)
End Sub

Public Class MyCoreLog As CoreLog
 
  Public Sub setReader(fieldName$, value$)
    Dim item As NotesItem
 
    Set item = Me.logDoc.ReplaceItemValue(fieldName$, value$)
    item.IsReaders = True
  End Sub
 
  Sub New(doc As NotesDocument, level%, logType$)
  End Sub 
End Class

Public Class MyCoreLog As CoreLog
  Private saveCounter As Integer
 
  Public Sub logText(message$)
    CoreLog..logText(message$)
 
    Me.saveCounter = Me.saveCounter + 1
    If Me.saveCounter > 10 Then
      Call saveLog()
      Me.saveCounter = 0
    End If
  End Sub
 
  Sub New(doc As NotesDocument, level%, logType$)
  End Sub
End Class 

  ' ---- Public methods ----
 
  Public Sub logText(message$)
    Me.getLog().AppendText(message$)
    Call Me.getLog().AddNewLine(1)
  End Sub
 
  Public Sub traceText(message$, level%)
    If level% <= Me.getTraceLevel() Then
      Me.getTrace().AppendText(message$)
      Call Me.getTrace().AddNewLine(1)
    End If
  End Sub

  Public Sub saveLog()
    Call Me.logDoc.Save(True, True)
  End Sub
 
  Public Sub closeLog()
    Dim timeComplete As NotesDateTime
 
    Me.logDoc.Status = "ok"		
    Set timeComplete = New NotesDateTime(Now())	
    Me.logDoc.End = timeComplete.LSLocalTime
    Me.logDoc.Elapsed =
     timeComplete.TimeDifference(Me.timeStart)
 
    Call saveLog()		
    Delete timeComplete
  End Sub