Open Event Example

This example displays a message when a document is opened.

Private Sub Document_Open()
    Msgbox "This document is copywrited"
End Sub