>m1 = CREATEOBJECT([testoptiongroup])
>m1.Show(1)
>
>
>**************************************************
>*-- Class:        testoptiongroup (c:\cdbk90\amline\libs\aapp.vcx)
>*-- ParentClass:  form
>*-- BaseClass:    form
>*-- Time Stamp:   01/07/07 02:01:11 PM
>*
>DEFINE CLASS testoptiongroup AS form
>
>
>    DoCreate = .T.
>    Caption = "Form1"
>    Name = "testoptiongroup"
>
>
>    ADD OBJECT optiongroup1 AS optiongroup WITH ;
>        ButtonCount = 2, ;
>        Value = 1, ;
>        Height = 156, ;
>        Left = 24, ;
>        Top = 24, ;
>        Width = 324, ;
>        Name = "Optiongroup1", ;
>        Option1.Caption = " ", ;
>        Option1.Value = 1, ;
>        Option1.Height = 108, ;
>        Option1.Left = 12, ;
>        Option1.Style = 1, ;
>        Option1.Top = 12, ;
>        Option1.Width = 144, ;
>        Option1.Name = "Option1", ;
>        Option1.WordWrap    = .t.,; &&& HERE
>        Option2.Caption = "Option2", ;
>        Option2.Height = 108, ;
>        Option2.Left = 168, ;
>        Option2.Style = 1, ;
>        Option2.Top = 12, ;
>        Option2.Width = 144, ;
>        Option2.WordWrap    = .t.,; &&& HERE
>        Option2.Name = "Option2"
>
>    PROCEDURE Init
>        This.optiongroup1.option1.Caption ="Option1" + CHR(13) + ;
>        "fdfdfdf  hhhfhfh hfhfh gxdvu xuxex"
>        This.optiongroup1.option1.ToolTipText = This.optiongroup1.option1.caption
>
>        This.optiongroup1.option2.Caption ="Option2" + CHR(13) + ;
>        "fdfdfdf  hhhfhfh hfhfh gxdvu xuxex"
>        This.optiongroup1.option2.ToolTipText = This.optiongroup1.option2.caption
>    ENDPROC
>
>
>ENDDEFINE
>