VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CopyR"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Option Explicit
Public Msg1 As String
Public CopyDate As Date


Public Property Get Copy_Date()
    Copy_Date = Format$(Now, "MM/DD/YY")
End Property

Public Property Let Copy_Date(vNewValue)

End Property



Public Property Get Legal()
    Legal = "According to U.S. Copyright Law 1995"
End Property

Private Sub Class_Initialize()
Attribute Class_Initialize.VB_HelpID = 1
Attribute Class_Initialize.VB_Description = "This procedure is the initialization code for MyCopyRight.  It shows the date that you initialized it in a dialog box."
    MsgBox "Started OLE SERVER On: " & vbCrLf & Format$(Now, "MM/DD/YY")
End Sub


