home *** CD-ROM | disk | FTP | other *** search
- Print "Number of columns = " .Frame.Layout.NumCols
-
- ' Set the layout for this frame to 2 columns
- .Frame.Layout.NumCols = 2
-
- ' turn painting off
- .BeginChange
-
- ' set the backcolor for this frame
- .Frame.Layout.Background.BackColor.Red = 0
- .Frame.Layout.Background.BackColor.Blue = 224
- .Frame.Layout.Background.BackColor.Green = 224
- .Frame.Layout.Background.BackColor.Override = 0
-
- ' set the pattern color for this pattern
- .Frame.Layout.Background.Color.Red = 255
- .Frame.Layout.Background.Color.Blue = 194
- .Frame.Layout.Background.Color.Green = 255
- .Frame.Layout.Background.Color.Override = 0
-
- ' assign a nice pattern to this frame
- .Frame.Layout.Background.Pattern = $LtsFillNeToSwGrad
-
-
- .EndChange