示例：SnapshotName 属性

Private Sub GetSnapshotNames()
 Dim o as Overlay
 Dim s as String
 For Each o in Overlays
s = s & "," & o.SnapshotName
 Next
 MsgBox "Snapshots that have been added as Overlays: " & s
End Sub