>>>Can anyone suggest me how to make vertical check box ??
>>
>>Do you try some CHR(13) in your caption ...
>
>No, I haven't tried. But I will try, Thanks !!

Just for fun:

**************************************************
*-- Class: vertcheck
*-- ParentClass: container
*-- BaseClass: container
*
DEFINE CLASS vertcheck AS container

Width = 12
Height = 120
*-- the caption of the label vertically
xcaption = ("")
Name = "vertcheck"

ADD OBJECT check1 AS checkbox WITH ;
Top = 3, ;
Left = 3, ;
Height = 18, ;
Width = 17, ;
Caption = (""), ;
Name = "Check1"

ADD OBJECT label1 AS label WITH ;
AutoSize = .T., ;
Caption = (""), ;
Height = 18, ;
Left = 5, ;
Top = 21, ;
Width = 0, ;
Name = "Label1"

*-- set the caption of the label to the xcaption property (vertically)
PROCEDURE setcaption
z=this.xcaption
c=""
for i = 1 to len(z)
if i = len(z)
c=c+substr(z,i,1)
else
c=c+substr(z,i,1)+chr(13)
endif
endfor
this.label1.caption=c
ENDPROC

PROCEDURE Init
this.setcaption
ENDPROC

PROCEDURE Refresh
this.setcaption
ENDPROC

ENDDEFINE
*
*-- EndDefine: vertcheck
**************************************************

:-)