oForm = CREATEOBJECT("Form1")
oForm.Show()
READ EVENTS




**************************************************
*-- Form:         form1 (d:\works\traff\test.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   09/16/05 08:14:12 PM
*
DEFINE CLASS form1 AS form


    Top = 0
    Left = 0
    Height = 40
    Width = 206
    ScrollBars = 1
    DoCreate = .T.
    ShowTips = .T.
    Caption = "Form1"
    nextdate = (DATE())
    Name = "Form1"


    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 9, ;
        Left = 115, ;
        Height = 27, ;
        Width = 84, ;
        Caption = "Change It", ;
        Name = "Command1"


    ADD OBJECT text1 AS textbox WITH ;
        Height = 23, ;
        Left = 7, ;
        Top = 10, ;
        Width = 100, ;
        ToolTipText = [Press the Button to change]+CHR(13)+[the tooltip]
        Name = "Text1"


    PROCEDURE command1.Click
        thisform.Text1.ToolTipText = "Estimated next event date " + TRANSFORM(DMY(thisform.nextdate))
        thisform.nextdate = thisform.nextdate + 1
    ENDPROC

    PROCEDURE QueryUnload
        CLEAR EVENTS
    ENDPROC

ENDDEFINE
*
*-- EndDefine: form1
**************************************************