PUBLIC oform1
oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
    DoCreate = .T.
    Caption = "Form1"
    Themes = .F.
    Name = "Form1"

    ADD OBJECT text1 AS textbox WITH ;
        Value = "www.microcomplex.com", ;
        Height = 39, ;
        Left = 46, ;
        Top = 66, ;
        Width = 317, ;
        SelectOnEntry    = .t.,;
        EnableHyperlinks = .T., ;
        SelectedBackColor = RGB(255,0,0), ; && RED
        Themes = .T., ;
        Name = "Text1"

    ADD OBJECT command1 AS commandbutton WITH ;
        Top = 163, ;
        Left = 110, ;
        Height = 28, ;
        Width = 166, ;
        Caption = "Command1", ;
        Name = "Command1"
ENDDEFINE
*
*-- EndDefine: form1
**************************************************