************************************************** *-- Class: myform (d:\foxexamples\grid\gridwithcoloredborder\gwcb.vcx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 09/29/18 06:41:05 PM * DEFINE CLASS myform AS form Top = 0 Left = 0 Height = 277 Width = 405 DoCreate = .T. Caption = "Form" BackColor = RGB(255,255,255) Name = "myform" ADD OBJECT shape1 AS shape WITH ; Top = 24, ; Left = 36, ; Height = 208, ; Width = 330, ; Anchor = 15, ; BorderStyle = 6, ; BorderWidth = 2, ; Curvature = 0, ; BorderColor = RGB(255,0,0), ; Name = "Shape1" ADD OBJECT grid1 AS grid WITH ; Anchor = 15, ; Height = 204, ; Left = 38, ; Top = 26, ; Width = 326, ; Name = "Grid1" PROCEDURE Load IF !USED('customers') USE HOME(2)+'\northwind\customers' SHARED endif ENDPROC ENDDEFINE * *-- EndDefine: myform **************************************************Regards,