home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap18 / copyr.cls < prev    next >
Text File  |  1995-07-09  |  792b  |  34 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CopyR"
  6. Attribute VB_Creatable = True
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9. Public Msg1 As String
  10. Public CopyDate As Date
  11.  
  12.  
  13. Public Property Get Copy_Date()
  14.     Copy_Date = Format$(Now, "MM/DD/YY")
  15. End Property
  16.  
  17. Public Property Let Copy_Date(vNewValue)
  18.  
  19. End Property
  20.  
  21.  
  22.  
  23. Public Property Get Legal()
  24.     Legal = "According to U.S. Copyright Law 1995"
  25. End Property
  26.  
  27. Private Sub Class_Initialize()
  28. Attribute Class_Initialize.VB_HelpID = 1
  29. 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."
  30.     MsgBox "Started OLE SERVER On: " & vbCrLf & Format$(Now, "MM/DD/YY")
  31. End Sub
  32.  
  33.  
  34.