home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Power Pack / Visual_Basic4_Power_Pack.bin / vb4files / oledsrvr / request.cls < prev    next >
Encoding:
Text File  |  1996-11-20  |  435 b   |  28 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "CRequest"
  6. Attribute VB_Creatable = False
  7. Attribute VB_Exposed = True
  8. Option Explicit
  9.  
  10. Public ID As String
  11. Public Sub Notify(lngValue As Long)
  12.  
  13. frmClient.Label1 = "Return Value: " & lngValue
  14.  
  15.  
  16. End Sub
  17.  
  18.  
  19.  
  20. Private Sub Class_Initialize()
  21.  
  22.  
  23. '-----  Unique ID is created in Form Load from Now function.
  24. Me.ID = frmClient.mstrProgID
  25. End Sub
  26.  
  27.  
  28.