VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CRequest"
Attribute VB_Creatable = False
Attribute VB_Exposed = True
Option Explicit

Public ID As String
Public Sub Notify(lngValue As Long)

frmClient.Label1 = "Return Value: " & lngValue


End Sub



Private Sub Class_Initialize()


'-----  Unique ID is created in Form Load from Now function.
Me.ID = frmClient.mstrProgID
End Sub


