PUBLIC frm, lcEventName
lcEventName = "TimeToGoHomeNotice"
 
frm = CreateObject ("Tform", lcEventName)
IF TYPE ("frm") = "O"
    frm.Visible = .T.
    READ EVENTS
ENDIF
 
DEFINE CLASS Tform As Form
    Width=300
    Height=150
    BackColor=Rgb(230,230,250)
    Caption="Firing events"
    AutoCenter=.T.
    hEvent=0
 
    ADD OBJECT cmd As CommandButton WITH;
        Height=25, Width=80, Caption="\,;
        Left=10, Top=10
 
PROCEDURE  Init (lcName)
    _SCREEN.WindowState = 2
    _SCREEN.Caption = "Push the button to set an event"
 
    DO decl
    IF Not THIS.createEvent(lcName)
        RETURN .F.
    ENDIF
 
PROCEDURE  Destroy
    QUIT
 
PROCEDURE  createEvent (lcName)
    THIS.hEvent = CreateEvent (0, 1, 0, lcName)
    IF THIS.hEvent = 0
        = MessageB ("Unable to create an Event object" + Chr(13) +;
            "with this name")
        RETURN .F.
    ENDIF
RETURN .T.
 
PROCEDURE  fire
    = SetEvent (THIS.hEvent)
 
PROCEDURE  cmd.Click
    ThisForm.fire
ENDDEFINE
 
PROCEDURE  decl
    DECLARE INTEGER CreateEvent IN kernel32;
        INTEGER lpEventAttributes, INTEGER bManualReset,;
        INTEGER bInitialState, STRING lpName
 
    DECLARE INTEGER SetEvent IN kernel32 INTEGER hEvent