Open Event Example
This example displays a message when a document is opened.
Private Sub Document_Open() Msgbox "This document is copywrited" End Sub