home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / PWA_AWAR.ZIP / SAMPVB.Z / CUSTOM.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-07-05  |  52.1 KB  |  1,501 lines
  1. VERSION 2.00
  2. Begin Form Custom 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Customize your Calendar"
  6.    ClientHeight    =   6150
  7.    ClientLeft      =   345
  8.    ClientTop       =   585
  9.    ClientWidth     =   8955
  10.    ControlBox      =   0   'False
  11.    Height          =   6555
  12.    Left            =   285
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   6150
  15.    ScaleWidth      =   8955
  16.    Top             =   240
  17.    Width           =   9075
  18.    Begin AwareBinary Imprint1 
  19.       BackColor       =   &H00C0C0C0&
  20.       FontBold        =   -1  'True
  21.       FontItalic      =   0   'False
  22.       FontName        =   "System"
  23.       FontSize        =   9.75
  24.       FontStrikethru  =   0   'False
  25.       FontUnderline   =   0   'False
  26.       Height          =   6135
  27.       Left            =   -30
  28.       TabIndex        =   0
  29.       ThreeDFrameWidth=   3
  30.       ThreeDInsideHighlightColor=   &H00FFFFFF&
  31.       ThreeDInsideShadowColor=   &H00808080&
  32.       ThreeDInsideStyle=   2  'Raised
  33.       ThreeDInsideWidth=   2
  34.       ThreeDOutsideStyle=   2  'Raised
  35.       Top             =   -30
  36.       Width           =   8895
  37.       Begin AwareText fpText2 
  38.          AlignTextH      =   1  'Center
  39.          BackColor       =   &H00C0C0C0&
  40.          BorderStyle     =   0  'No Border
  41.          ControlType     =   2  'Static
  42.          FontBold        =   -1  'True
  43.          FontItalic      =   0   'False
  44.          FontName        =   "MS Sans Serif"
  45.          FontSize        =   8.25
  46.          FontStrikethru  =   0   'False
  47.          FontUnderline   =   0   'False
  48.          ForeColor       =   &H00FF0000&
  49.          Height          =   315
  50.          Index           =   8
  51.          Left            =   5000
  52.          TabIndex        =   48
  53.          TabStop         =   0   'False
  54.          Text            =   "Month Header Color"
  55.          ThreeDOutsideStyle=   1  'Lowered
  56.          ThreeDText      =   1  'Embossed
  57.          ThreeDTextHighlightColor=   &H00FFFFFF&
  58.          ThreeDTextShadowColor=   &H00000010&
  59.          Top             =   150
  60.          Width           =   2835
  61.       End
  62.       Begin AwareBoolean fpBoolean22 
  63.          AlignTextH      =   1  'Center
  64.          BackColor       =   &H00C0C0C0&
  65.          BooleanMode     =   2  'Button-Like
  66.          BooleanPicture  =   4  'User Defined
  67.          BorderStyle     =   2  'Rounded
  68.          BorderWidth     =   1
  69.          FontBold        =   -1  'True
  70.          FontItalic      =   0   'False
  71.          FontName        =   "MS Sans Serif"
  72.          FontSize        =   8.25
  73.          FontStrikethru  =   0   'False
  74.          FontUnderline   =   0   'False
  75.          ForeColor       =   &H000000FF&
  76.          Height          =   375
  77.          Left            =   5000
  78.          MarginBottom    =   1
  79.          MarginLeft      =   1
  80.          MarginRight     =   1
  81.          MarginTop       =   1
  82.          TabIndex        =   47
  83.          TextFalse       =   "Click to Color"
  84.          ThreeDOutsideStyle=   2  'Raised
  85.          ThreeDOutsideWidth=   2
  86.          Top             =   700
  87.          Width           =   1350
  88.       End
  89.       Begin AwareBoolean fpBoolean24 
  90.          AlignTextH      =   1  'Center
  91.          BackColor       =   &H00C0C0C0&
  92.          BooleanMode     =   2  'Button-Like
  93.          BooleanPicture  =   4  'User Defined
  94.          BorderStyle     =   2  'Rounded
  95.          BorderWidth     =   1
  96.          FontBold        =   -1  'True
  97.          FontItalic      =   0   'False
  98.          FontName        =   "MS Sans Serif"
  99.          FontSize        =   8.25
  100.          FontStrikethru  =   0   'False
  101.          FontUnderline   =   0   'False
  102.          ForeColor       =   &H000000FF&
  103.          Height          =   375
  104.          Left            =   6450
  105.          MarginBottom    =   1
  106.          MarginLeft      =   1
  107.          MarginRight     =   1
  108.          MarginTop       =   1
  109.          TabIndex        =   46
  110.          TextFalse       =   "Click to Color"
  111.          ThreeDOutsideStyle=   2  'Raised
  112.          ThreeDOutsideWidth=   2
  113.          Top             =   675
  114.          Width           =   1350
  115.       End
  116.       Begin AwareText fpText1 
  117.          AlignTextH      =   1  'Center
  118.          AlignTextV      =   1  'Center
  119.          BackColor       =   &H00C0C0C0&
  120.          BorderStyle     =   0  'No Border
  121.          ControlType     =   2  'Static
  122.          FontBold        =   -1  'True
  123.          FontItalic      =   0   'False
  124.          FontName        =   "MS Serif"
  125.          FontSize        =   8.25
  126.          FontStrikethru  =   0   'False
  127.          FontUnderline   =   0   'False
  128.          ForeColor       =   &H00FF0000&
  129.          Height          =   315
  130.          Index           =   2
  131.          Left            =   5100
  132.          TabIndex        =   45
  133.          TabStop         =   0   'False
  134.          Text            =   "Fore Color"
  135.          ThreeDTextHighlightColor=   &H00000014&
  136.          ThreeDTextShadowColor=   &H00000010&
  137.          Top             =   450
  138.          Width           =   1095
  139.       End
  140.       Begin AwareText fpText1 
  141.          AlignTextH      =   1  'Center
  142.          AlignTextV      =   1  'Center
  143.          BackColor       =   &H00C0C0C0&
  144.          BorderStyle     =   0  'No Border
  145.          ControlType     =   2  'Static
  146.          FontBold        =   -1  'True
  147.          FontItalic      =   0   'False
  148.          FontName        =   "MS Serif"
  149.          FontSize        =   8.25
  150.          FontStrikethru  =   0   'False
  151.          FontUnderline   =   0   'False
  152.          ForeColor       =   &H00FF0000&
  153.          Height          =   315
  154.          Index           =   4
  155.          Left            =   6550
  156.          TabIndex        =   44
  157.          TabStop         =   0   'False
  158.          Text            =   "Back Color"
  159.          ThreeDTextHighlightColor=   &H00000014&
  160.          ThreeDTextShadowColor=   &H00000010&
  161.          Top             =   450
  162.          Width           =   1095
  163.       End
  164.       Begin AwareText fpText2 
  165.          AlignTextH      =   1  'Center
  166.          BackColor       =   &H00C0C0C0&
  167.          BorderStyle     =   0  'No Border
  168.          ControlType     =   2  'Static
  169.          FontBold        =   -1  'True
  170.          FontItalic      =   0   'False
  171.          FontName        =   "MS Sans Serif"
  172.          FontSize        =   8.25
  173.          FontStrikethru  =   0   'False
  174.          FontUnderline   =   0   'False
  175.          ForeColor       =   &H00FF0000&
  176.          Height          =   315
  177.          Index           =   7
  178.          Left            =   5000
  179.          TabIndex        =   43
  180.          TabStop         =   0   'False
  181.          Text            =   "Year Header Color"
  182.          ThreeDOutsideStyle=   1  'Lowered
  183.          ThreeDText      =   1  'Embossed
  184.          ThreeDTextHighlightColor=   &H00FFFFFF&
  185.          ThreeDTextShadowColor=   &H00000010&
  186.          Top             =   1400
  187.          Width           =   2835
  188.       End
  189.       Begin AwareBoolean fpBoolean23 
  190.          AlignTextH      =   1  'Center
  191.          BackColor       =   &H00C0C0C0&
  192.          BooleanMode     =   2  'Button-Like
  193.          BooleanPicture  =   4  'User Defined
  194.          BorderStyle     =   2  'Rounded
  195.          BorderWidth     =   1
  196.          FontBold        =   -1  'True
  197.          FontItalic      =   0   'False
  198.          FontName        =   "MS Sans Serif"
  199.          FontSize        =   8.25
  200.          FontStrikethru  =   0   'False
  201.          FontUnderline   =   0   'False
  202.          ForeColor       =   &H000000FF&
  203.          Height          =   375
  204.          Left            =   5000
  205.          MarginBottom    =   1
  206.          MarginLeft      =   1
  207.          MarginRight     =   1
  208.          MarginTop       =   1
  209.          TabIndex        =   42
  210.          TextFalse       =   "Click to Color"
  211.          ThreeDOutsideStyle=   2  'Raised
  212.          ThreeDOutsideWidth=   2
  213.          Top             =   1950
  214.          Width           =   1350
  215.       End
  216.       Begin AwareBoolean fpBoolean25 
  217.          AlignTextH      =   1  'Center
  218.          BackColor       =   &H00C0C0C0&
  219.          BooleanMode     =   2  'Button-Like
  220.          BooleanPicture  =   4  'User Defined
  221.          BorderStyle     =   2  'Rounded
  222.          BorderWidth     =   1
  223.          FontBold        =   -1  'True
  224.          FontItalic      =   0   'False
  225.          FontName        =   "MS Sans Serif"
  226.          FontSize        =   8.25
  227.          FontStrikethru  =   0   'False
  228.          FontUnderline   =   0   'False
  229.          ForeColor       =   &H000000FF&
  230.          Height          =   375
  231.          Left            =   6510
  232.          MarginBottom    =   1
  233.          MarginLeft      =   1
  234.          MarginRight     =   1
  235.          MarginTop       =   1
  236.          TabIndex        =   41
  237.          TextFalse       =   "Click to Color"
  238.          ThreeDOutsideStyle=   2  'Raised
  239.          ThreeDOutsideWidth=   2
  240.          Top             =   1950
  241.          Width           =   1350
  242.       End
  243.       Begin AwareText fpText1 
  244.          AlignTextH      =   1  'Center
  245.          AlignTextV      =   1  'Center
  246.          BackColor       =   &H00C0C0C0&
  247.          BorderStyle     =   0  'No Border
  248.          ControlType     =   2  'Static
  249.          FontBold        =   -1  'True
  250.          FontItalic      =   0   'False
  251.          FontName        =   "MS Serif"
  252.          FontSize        =   8.25
  253.          FontStrikethru  =   0   'False
  254.          FontUnderline   =   0   'False
  255.          ForeColor       =   &H00FF0000&
  256.          Height          =   315
  257.          Index           =   3
  258.          Left            =   5100
  259.          TabIndex        =   40
  260.          TabStop         =   0   'False
  261.          Text            =   "Fore Color"
  262.          ThreeDTextHighlightColor=   &H00000014&
  263.          ThreeDTextShadowColor=   &H00000010&
  264.          Top             =   1700
  265.          Width           =   1095
  266.       End
  267.       Begin AwareText fpText1 
  268.          AlignTextH      =   1  'Center
  269.          AlignTextV      =   1  'Center
  270.          BackColor       =   &H00C0C0C0&
  271.          BorderStyle     =   0  'No Border
  272.          ControlType     =   2  'Static
  273.          FontBold        =   -1  'True
  274.          FontItalic      =   0   'False
  275.          FontName        =   "MS Serif"
  276.          FontSize        =   8.25
  277.          FontStrikethru  =   0   'False
  278.          FontUnderline   =   0   'False
  279.          ForeColor       =   &H00FF0000&
  280.          Height          =   315
  281.          Index           =   5
  282.          Left            =   6550
  283.          TabIndex        =   39
  284.          TabStop         =   0   'False
  285.          Text            =   "Back Color"
  286.          ThreeDTextHighlightColor=   &H00000014&
  287.          ThreeDTextShadowColor=   &H00000010&
  288.          Top             =   1700
  289.          Width           =   1095
  290.       End
  291.       Begin AwareText fpText2 
  292.          AlignTextH      =   1  'Center
  293.          BackColor       =   &H00C0C0C0&
  294.          BorderStyle     =   0  'No Border
  295.          ControlType     =   2  'Static
  296.          FontBold        =   -1  'True
  297.          FontItalic      =   0   'False
  298.          FontName        =   "MS Sans Serif"
  299.          FontSize        =   8.25
  300.          FontStrikethru  =   0   'False
  301.          FontUnderline   =   0   'False
  302.          ForeColor       =   &H00FF0000&
  303.          Height          =   315
  304.          Index           =   6
  305.          Left            =   5000
  306.          TabIndex        =   38
  307.          TabStop         =   0   'False
  308.          Text            =   "Appointment Days Color"
  309.          ThreeDOutsideStyle=   1  'Lowered
  310.          ThreeDText      =   1  'Embossed
  311.          ThreeDTextHighlightColor=   &H00FFFFFF&
  312.          ThreeDTextShadowColor=   &H00000010&
  313.          Top             =   2550
  314.          Width           =   2835
  315.       End
  316.       Begin AwareBoolean fpBoolean20 
  317.          BackColor       =   &H00C0C0C0&
  318.          BooleanMode     =   2  'Button-Like
  319.          BooleanPicture  =   4  'User Defined
  320.          BorderStyle     =   2  'Rounded
  321.          BorderWidth     =   1
  322.          FontBold        =   -1  'True
  323.          FontItalic      =   0   'False
  324.          FontName        =   "MS Sans Serif"
  325.          FontSize        =   8.25
  326.          FontStrikethru  =   0   'False
  327.          FontUnderline   =   0   'False
  328.          ForeColor       =   &H000000FF&
  329.          Height          =   375
  330.          Left            =   5000
  331.          MarginBottom    =   1
  332.          MarginLeft      =   1
  333.          MarginRight     =   1
  334.          MarginTop       =   1
  335.          TabIndex        =   37
  336.          TextFalse       =   "Click to Color"
  337.          ThreeDOutsideStyle=   2  'Raised
  338.          ThreeDOutsideWidth=   2
  339.          Top             =   3100
  340.          Width           =   1350
  341.       End
  342.       Begin AwareBoolean fpBoolean21 
  343.          BackColor       =   &H00C0C0C0&
  344.          BooleanMode     =   2  'Button-Like
  345.          BooleanPicture  =   4  'User Defined
  346.          BorderStyle     =   2  'Rounded
  347.          BorderWidth     =   1
  348.          FontBold        =   -1  'True
  349.          FontItalic      =   0   'False
  350.          FontName        =   "MS Sans Serif"
  351.          FontSize        =   8.25
  352.          FontStrikethru  =   0   'False
  353.          FontUnderline   =   0   'False
  354.          ForeColor       =   &H000000FF&
  355.          Height          =   375
  356.          Left            =   6500
  357.          MarginBottom    =   1
  358.          MarginLeft      =   1
  359.          MarginRight     =   1
  360.          MarginTop       =   1
  361.          TabIndex        =   36
  362.          TextFalse       =   "Click to Color"
  363.          ThreeDOutsideStyle=   2  'Raised
  364.          ThreeDOutsideWidth=   2
  365.          Top             =   3100
  366.          Width           =   1350
  367.       End
  368.       Begin AwareText fpText1 
  369.          AlignTextH      =   1  'Center
  370.          AlignTextV      =   1  'Center
  371.          BackColor       =   &H00C0C0C0&
  372.          BorderStyle     =   0  'No Border
  373.          ControlType     =   2  'Static
  374.          FontBold        =   -1  'True
  375.          FontItalic      =   0   'False
  376.          FontName        =   "MS Serif"
  377.          FontSize        =   8.25
  378.          FontStrikethru  =   0   'False
  379.          FontUnderline   =   0   'False
  380.          ForeColor       =   &H00FF0000&
  381.          Height          =   315
  382.          Index           =   0
  383.          Left            =   5100
  384.          TabIndex        =   35
  385.          TabStop         =   0   'False
  386.          Text            =   "Fore Color"
  387.          ThreeDTextHighlightColor=   &H00000014&
  388.          ThreeDTextShadowColor=   &H00000010&
  389.          Top             =   2850
  390.          Width           =   1095
  391.       End
  392.       Begin AwareText fpText1 
  393.          AlignTextH      =   1  'Center
  394.          AlignTextV      =   1  'Center
  395.          BackColor       =   &H00C0C0C0&
  396.          BorderStyle     =   0  'No Border
  397.          ControlType     =   2  'Static
  398.          FontBold        =   -1  'True
  399.          FontItalic      =   0   'False
  400.          FontName        =   "MS Serif"
  401.          FontSize        =   8.25
  402.          FontStrikethru  =   0   'False
  403.          FontUnderline   =   0   'False
  404.          ForeColor       =   &H00FF0000&
  405.          Height          =   315
  406.          Index           =   1
  407.          Left            =   6550
  408.          TabIndex        =   34
  409.          TabStop         =   0   'False
  410.          Text            =   "Back Color"
  411.          ThreeDTextHighlightColor=   &H00000014&
  412.          ThreeDTextShadowColor=   &H00000010&
  413.          Top             =   2850
  414.          Width           =   1095
  415.       End
  416.       Begin AwareText fpText2 
  417.          AlignTextH      =   1  'Center
  418.          BackColor       =   &H00C0C0C0&
  419.          BorderStyle     =   0  'No Border
  420.          ControlType     =   2  'Static
  421.          FontBold        =   -1  'True
  422.          FontItalic      =   0   'False
  423.          FontName        =   "MS Sans Serif"
  424.          FontSize        =   8.25
  425.          FontStrikethru  =   0   'False
  426.          FontUnderline   =   0   'False
  427.          ForeColor       =   &H00FF0000&
  428.          Height          =   315
  429.          Index           =   5
  430.          Left            =   5000
  431.          TabIndex        =   33
  432.          TabStop         =   0   'False
  433.          Text            =   "First Day of Week"
  434.          ThreeDOutsideStyle=   1  'Lowered
  435.          ThreeDText      =   1  'Embossed
  436.          ThreeDTextHighlightColor=   &H00FFFFFF&
  437.          ThreeDTextShadowColor=   &H00000010&
  438.          Top             =   3750
  439.          Width           =   2145
  440.       End
  441.       Begin AwareBoolean fpBoolean4 
  442.          BackColor       =   &H00C0C0C0&
  443.          BooleanPicture  =   3  '3D Option Button
  444.          BorderWidth     =   1
  445.          DataField       =   "FirstDay"
  446.          DataSource      =   "Data1"
  447.          FontBold        =   -1  'True
  448.          FontItalic      =   0   'False
  449.          FontName        =   "MS Sans Serif"
  450.          FontSize        =   8.25
  451.          FontStrikethru  =   0   'False
  452.          FontUnderline   =   0   'False
  453.          ForeColor       =   &H000000FF&
  454.          GroupId         =   2
  455.          GroupSelect     =   3  'One and Only One
  456.          Height          =   270
  457.          Left            =   5040
  458.          TabIndex        =   32
  459.          Tag             =   "1"
  460.          TextFalse       =   "Sunday"
  461.          Top             =   4110
  462.          Width           =   1095
  463.       End
  464.       Begin AwareBoolean fpBoolean5 
  465.          BackColor       =   &H00C0C0C0&
  466.          BooleanPicture  =   3  '3D Option Button
  467.          BorderWidth     =   1
  468.          DataField       =   "FirstDay"
  469.          DataSource      =   "Data1"
  470.          FontBold        =   -1  'True
  471.          FontItalic      =   0   'False
  472.          FontName        =   "MS Sans Serif"
  473.          FontSize        =   8.25
  474.          FontStrikethru  =   0   'False
  475.          FontUnderline   =   0   'False
  476.          ForeColor       =   &H000000FF&
  477.          GroupId         =   2
  478.          GroupSelect     =   3  'One and Only One
  479.          GroupTag        =   1
  480.          Height          =   270
  481.          Left            =   6090
  482.          TabIndex        =   31
  483.          Tag             =   "2"
  484.          TextFalse       =   "Monday"
  485.          Top             =   4110
  486.          Width           =   1095
  487.       End
  488.       Begin AwareText fpText2 
  489.          AlignTextH      =   1  'Center
  490.          BackColor       =   &H00C0C0C0&
  491.          BorderStyle     =   0  'No Border
  492.          ControlType     =   2  'Static
  493.          FontBold        =   -1  'True
  494.          FontItalic      =   0   'False
  495.          FontName        =   "MS Sans Serif"
  496.          FontSize        =   8.25
  497.          FontStrikethru  =   0   'False
  498.          FontUnderline   =   0   'False
  499.          ForeColor       =   &H00FF0000&
  500.          Height          =   315
  501.          Index           =   4
  502.          Left            =   5000
  503.          TabIndex        =   30
  504.          TabStop         =   0   'False
  505.          Text            =   "Week Day Header"
  506.          ThreeDOutsideStyle=   1  'Lowered
  507.          ThreeDText      =   1  'Embossed
  508.          ThreeDTextHighlightColor=   &H00FFFFFF&
  509.          ThreeDTextShadowColor=   &H00000010&
  510.          Top             =   4605
  511.          Width           =   1965
  512.       End
  513.       Begin AwareBoolean fpBoolean15 
  514.          BackColor       =   &H00C0C0C0&
  515.          BooleanPicture  =   3  '3D Option Button
  516.          BorderWidth     =   1
  517.          DataField       =   "WeekHeader"
  518.          DataSource      =   "Data1"
  519.          FontBold        =   -1  'True
  520.          FontItalic      =   0   'False
  521.          FontName        =   "MS Sans Serif"
  522.          FontSize        =   8.25
  523.          FontStrikethru  =   0   'False
  524.          FontUnderline   =   0   'False
  525.          ForeColor       =   &H000000FF&
  526.          GroupId         =   5
  527.          GroupSelect     =   3  'One and Only One
  528.          Height          =   275
  529.          Left            =   4950
  530.          TabIndex        =   29
  531.          Tag             =   "1"
  532.          TextFalse       =   "None"
  533.          Top             =   4950
  534.          Width           =   975
  535.       End
  536.       Begin AwareBoolean fpBoolean16 
  537.          BackColor       =   &H00C0C0C0&
  538.          BooleanPicture  =   3  '3D Option Button
  539.          BorderWidth     =   1
  540.          DataField       =   "WeekHeader"
  541.          DataSource      =   "Data1"
  542.          FontBold        =   -1  'True
  543.          FontItalic      =   0   'False
  544.          FontName        =   "MS Sans Serif"
  545.          FontSize        =   8.25
  546.          FontStrikethru  =   0   'False
  547.          FontUnderline   =   0   'False
  548.          ForeColor       =   &H000000FF&
  549.          GroupId         =   5
  550.          GroupSelect     =   3  'One and Only One
  551.          GroupTag        =   1
  552.          Height          =   275
  553.          Left            =   4950
  554.          TabIndex        =   28
  555.          Tag             =   "2"
  556.          TextFalse       =   "1 Letter"
  557.          Top             =   5250
  558.          Width           =   1215
  559.       End
  560.       Begin AwareBoolean fpBoolean17 
  561.          BackColor       =   &H00C0C0C0&
  562.          BooleanPicture  =   3  '3D Option Button
  563.          BorderWidth     =   1
  564.          DataField       =   "WeekHeader"
  565.          DataSource      =   "Data1"
  566.          FontBold        =   -1  'True
  567.          FontItalic      =   0   'False
  568.          FontName        =   "MS Sans Serif"
  569.          FontSize        =   8.25
  570.          FontStrikethru  =   0   'False
  571.          FontUnderline   =   0   'False
  572.          ForeColor       =   &H000000FF&
  573.          GroupId         =   5
  574.          GroupSelect     =   3  'One and Only One
  575.          GroupTag        =   2
  576.          Height          =   275
  577.          Left            =   4950
  578.          TabIndex        =   27
  579.          Tag             =   "3"
  580.          TextFalse       =   "2 Letters"
  581.          Top             =   5550
  582.          Width           =   1215
  583.       End
  584.       Begin AwareBoolean fpBoolean18 
  585.          BackColor       =   &H00C0C0C0&
  586.          BooleanPicture  =   3  '3D Option Button
  587.          BorderWidth     =   1
  588.          DataField       =   "WeekHeader"
  589.          DataSource      =   "Data1"
  590.          FontBold        =   -1  'True
  591.          FontItalic      =   0   'False
  592.          FontName        =   "MS Sans Serif"
  593.          FontSize        =   8.25
  594.          FontStrikethru  =   0   'False
  595.          FontUnderline   =   0   'False
  596.          ForeColor       =   &H000000FF&
  597.          GroupId         =   5
  598.          GroupSelect     =   3  'One and Only One
  599.          GroupTag        =   3
  600.          Height          =   275
  601.          Left            =   6150
  602.          TabIndex        =   26
  603.          Tag             =   "4"
  604.          TextFalse       =   "3 Letters"
  605.          Top             =   4950
  606.          Width           =   1150
  607.       End
  608.       Begin AwareBoolean fpBoolean19 
  609.          BackColor       =   &H00C0C0C0&
  610.          BooleanPicture  =   3  '3D Option Button
  611.          BorderWidth     =   1
  612.          DataField       =   "WeekHeader"
  613.          DataSource      =   "Data1"
  614.          FontBold        =   -1  'True
  615.          FontItalic      =   0   'False
  616.          FontName        =   "MS Sans Serif"
  617.          FontSize        =   8.25
  618.          FontStrikethru  =   0   'False
  619.          FontUnderline   =   0   'False
  620.          ForeColor       =   &H000000FF&
  621.          GroupId         =   5
  622.          GroupSelect     =   3  'One and Only One
  623.          GroupTag        =   4
  624.          Height          =   275
  625.          Left            =   6150
  626.          TabIndex        =   25
  627.          Tag             =   "5"
  628.          TextFalse       =   "Full Day"
  629.          Top             =   5250
  630.          Width           =   1150
  631.       End
  632.       Begin AwareText fpText2 
  633.          AlignTextH      =   1  'Center
  634.          BackColor       =   &H00C0C0C0&
  635.          BorderStyle     =   0  'No Border
  636.          ControlType     =   2  'Static
  637.          FontBold        =   -1  'True
  638.          FontItalic      =   0   'False
  639.          FontName        =   "MS Sans Serif"
  640.          FontSize        =   8.25
  641.          FontStrikethru  =   0   'False
  642.          FontUnderline   =   0   'False
  643.          ForeColor       =   &H00FF0000&
  644.          Height          =   315
  645.          Index           =   3
  646.          Left            =   2610
  647.          TabIndex        =   24
  648.          TabStop         =   0   'False
  649.          Text            =   "Year Style"
  650.          ThreeDOutsideStyle=   1  'Lowered
  651.          ThreeDText      =   1  'Embossed
  652.          ThreeDTextHighlightColor=   &H00FFFFFF&
  653.          ThreeDTextShadowColor=   &H00000010&
  654.          Top             =   4605
  655.          Width           =   1965
  656.       End
  657.       Begin AwareBoolean fpBoolean12 
  658.          BackColor       =   &H00C0C0C0&
  659.          BooleanPicture  =   3  '3D Option Button
  660.          BorderWidth     =   1
  661.          DataField       =   "YearHeader"
  662.          DataSource      =   "Data1"
  663.          FontBold        =   -1  'True
  664.          FontItalic      =   0   'False
  665.          FontName        =   "MS Sans Serif"
  666.          FontSize        =   8.25
  667.          FontStrikethru  =   0   'False
  668.          FontUnderline   =   0   'False
  669.          ForeColor       =   &H000000FF&
  670.          GroupId         =   4
  671.          GroupSelect     =   3  'One and Only One
  672.          Height          =   275
  673.          Left            =   2790
  674.          TabIndex        =   23
  675.          Tag             =   "1"
  676.          TextFalse       =   "None"
  677.          Top             =   4950
  678.          Width           =   1400
  679.       End
  680.       Begin AwareBoolean fpBoolean13 
  681.          BackColor       =   &H00C0C0C0&
  682.          BooleanPicture  =   3  '3D Option Button
  683.          BorderWidth     =   1
  684.          DataField       =   "YearHeader"
  685.          DataSource      =   "Data1"
  686.          FontBold        =   -1  'True
  687.          FontItalic      =   0   'False
  688.          FontName        =   "MS Sans Serif"
  689.          FontSize        =   8.25
  690.          FontStrikethru  =   0   'False
  691.          FontUnderline   =   0   'False
  692.          ForeColor       =   &H000000FF&
  693.          GroupId         =   4
  694.          GroupSelect     =   3  'One and Only One
  695.          GroupTag        =   1
  696.          Height          =   275
  697.          Left            =   2790
  698.          TabIndex        =   22
  699.          Tag             =   "2"
  700.          TextFalse       =   "Scroll"
  701.          Top             =   5250
  702.          Width           =   1400
  703.       End
  704.       Begin AwareBoolean fpBoolean14 
  705.          BackColor       =   &H00C0C0C0&
  706.          BooleanPicture  =   3  '3D Option Button
  707.          BorderWidth     =   1
  708.          DataField       =   "YearHeader"
  709.          DataSource      =   "Data1"
  710.          FontBold        =   -1  'True
  711.          FontItalic      =   0   'False
  712.          FontName        =   "MS Sans Serif"
  713.          FontSize        =   8.25
  714.          FontStrikethru  =   0   'False
  715.          FontUnderline   =   0   'False
  716.          ForeColor       =   &H000000FF&
  717.          GroupId         =   4
  718.          GroupSelect     =   3  'One and Only One
  719.          GroupTag        =   2
  720.          Height          =   275
  721.          Left            =   2790
  722.          TabIndex        =   21
  723.          Tag             =   "3"
  724.          TextFalse       =   "Drop Down"
  725.          Top             =   5550
  726.          Width           =   1400
  727.       End
  728.       Begin AwareText fpText2 
  729.          AlignTextH      =   1  'Center
  730.          BackColor       =   &H00C0C0C0&
  731.          BorderStyle     =   0  'No Border
  732.          ControlType     =   2  'Static
  733.          FontBold        =   -1  'True
  734.          FontItalic      =   0   'False
  735.          FontName        =   "MS Sans Serif"
  736.          FontSize        =   8.25
  737.          FontStrikethru  =   0   'False
  738.          FontUnderline   =   0   'False
  739.          ForeColor       =   &H00FF0000&
  740.          Height          =   315
  741.          Index           =   2
  742.          Left            =   150
  743.          TabIndex        =   20
  744.          TabStop         =   0   'False
  745.          Text            =   "Month Style"
  746.          ThreeDOutsideStyle=   1  'Lowered
  747.          ThreeDText      =   1  'Embossed
  748.          ThreeDTextHighlightColor=   &H00FFFFFF&
  749.          ThreeDTextShadowColor=   &H00000010&
  750.          Top             =   4600
  751.          Width           =   1965
  752.       End
  753.       Begin AwareBoolean fpBoolean9 
  754.          BackColor       =   &H00C0C0C0&
  755.          BooleanPicture  =   3  '3D Option Button
  756.          BorderWidth     =   1
  757.          DataField       =   "MonthHeader"
  758.          DataSource      =   "Data1"
  759.          FontBold        =   -1  'True
  760.          FontItalic      =   0   'False
  761.          FontName        =   "MS Sans Serif"
  762.          FontSize        =   8.25
  763.          FontStrikethru  =   0   'False
  764.          FontUnderline   =   0   'False
  765.          ForeColor       =   &H000000FF&
  766.          GroupId         =   3
  767.          GroupSelect     =   3  'One and Only One
  768.          Height          =   275
  769.          Left            =   250
  770.          TabIndex        =   19
  771.          Tag             =   "1"
  772.          TextFalse       =   "None"
  773.          Top             =   4950
  774.          Width           =   1095
  775.       End
  776.       Begin AwareBoolean fpBoolean10 
  777.          BackColor       =   &H00C0C0C0&
  778.          BooleanPicture  =   3  '3D Option Button
  779.          BorderWidth     =   1
  780.          DataField       =   "MonthHeader"
  781.          DataSource      =   "Data1"
  782.          FontBold        =   -1  'True
  783.          FontItalic      =   0   'False
  784.          FontName        =   "MS Sans Serif"
  785.          FontSize        =   8.25
  786.          FontStrikethru  =   0   'False
  787.          FontUnderline   =   0   'False
  788.          ForeColor       =   &H000000FF&
  789.          GroupId         =   3
  790.          GroupSelect     =   3  'One and Only One
  791.          GroupTag        =   1
  792.          Height          =   275
  793.          Left            =   250
  794.          TabIndex        =   18
  795.          Tag             =   "2"
  796.          TextFalse       =   "Scroll"
  797.          Top             =   5250
  798.          Width           =   1095
  799.       End
  800.       Begin AwareBoolean fpBoolean11 
  801.          BackColor       =   &H00C0C0C0&
  802.          BooleanPicture  =   3  '3D Option Button
  803.          BorderWidth     =   1
  804.          DataField       =   "MonthHeader"
  805.          DataSource      =   "Data1"
  806.          FontBold        =   -1  'True
  807.          FontItalic      =   0   'False
  808.          FontName        =   "MS Sans Serif"
  809.          FontSize        =   8.25
  810.          FontStrikethru  =   0   'False
  811.          FontUnderline   =   0   'False
  812.          ForeColor       =   &H000000FF&
  813.          GroupId         =   3
  814.          GroupSelect     =   3  'One and Only One
  815.          GroupTag        =   2
  816.          Height          =   270
  817.          Left            =   250
  818.          TabIndex        =   17
  819.          Tag             =   "2"
  820.          TextFalse       =   "Drop Down"
  821.          Top             =   5550
  822.          Width           =   1335
  823.       End
  824.       Begin AwareText fpText2 
  825.          AlignTextH      =   1  'Center
  826.          BackColor       =   &H00C0C0C0&
  827.          BorderStyle     =   0  'No Border
  828.          ControlType     =   2  'Static
  829.          FontBold        =   -1  'True
  830.          FontItalic      =   0   'False
  831.          FontName        =   "MS Sans Serif"
  832.          FontSize        =   8.25
  833.          FontStrikethru  =   0   'False
  834.          FontUnderline   =   0   'False
  835.          ForeColor       =   &H00FF0000&
  836.          Height          =   315
  837.          Index           =   1
  838.          Left            =   2610
  839.          TabIndex        =   16
  840.          TabStop         =   0   'False
  841.          Text            =   "Gray Area Style"
  842.          ThreeDOutsideStyle=   1  'Lowered
  843.          ThreeDText      =   1  'Embossed
  844.          ThreeDTextHighlightColor=   &H00FFFFFF&
  845.          ThreeDTextShadowColor=   &H00000010&
  846.          Top             =   3000
  847.          Width           =   1965
  848.       End
  849.       Begin AwareBoolean fpBoolean6 
  850.          BackColor       =   &H00C0C0C0&
  851.          BooleanPicture  =   3  '3D Option Button
  852.          BorderWidth     =   1
  853.          DataField       =   "GrayStyle"
  854.          DataSource      =   "Data1"
  855.          FontBold        =   -1  'True
  856.          FontItalic      =   0   'False
  857.          FontName        =   "MS Sans Serif"
  858.          FontSize        =   8.25
  859.          FontStrikethru  =   0   'False
  860.          FontUnderline   =   0   'False
  861.          ForeColor       =   &H000000FF&
  862.          GroupId         =   1
  863.          GroupSelect     =   3  'One and Only One
  864.          Height          =   275
  865.          Left            =   2820
  866.          TabIndex        =   15
  867.          Tag             =   "1"
  868.          TextFalse       =   "Solid"
  869.          Top             =   3330
  870.          Width           =   975
  871.       End
  872.       Begin AwareBoolean fpBoolean7 
  873.          BackColor       =   &H00C0C0C0&
  874.          BooleanPicture  =   3  '3D Option Button
  875.          BorderWidth     =   1
  876.          DataField       =   "GrayStyle"
  877.          DataSource      =   "Data1"
  878.          FontBold        =   -1  'True
  879.          FontItalic      =   0   'False
  880.          FontName        =   "MS Sans Serif"
  881.          FontSize        =   8.25
  882.          FontStrikethru  =   0   'False
  883.          FontUnderline   =   0   'False
  884.          ForeColor       =   &H000000FF&
  885.          GroupId         =   1
  886.          GroupSelect     =   3  'One and Only One
  887.          GroupTag        =   1
  888.          Height          =   275
  889.          Left            =   2820
  890.          TabIndex        =   14
  891.          Tag             =   "2"
  892.          TextFalse       =   "PinStripe"
  893.          Top             =   3660
  894.          Width           =   1335
  895.       End
  896.       Begin AwareBoolean fpBoolean8 
  897.          BackColor       =   &H00C0C0C0&
  898.          BooleanPicture  =   3  '3D Option Button
  899.          BorderWidth     =   1
  900.          DataField       =   "GrayStyle"
  901.          DataSource      =   "Data1"
  902.          FontBold        =   -1  'True
  903.          FontItalic      =   0   'False
  904.          FontName        =   "MS Sans Serif"
  905.          FontSize        =   8.25
  906.          FontStrikethru  =   0   'False
  907.          FontUnderline   =   0   'False
  908.          ForeColor       =   &H000000FF&
  909.          GroupId         =   1
  910.          GroupSelect     =   3  'One and Only One
  911.          GroupTag        =   2
  912.          Height          =   450
  913.          Left            =   2820
  914.          MultiLine       =   -1  'True
  915.          TabIndex        =   13
  916.          Tag             =   "3"
  917.          TextFalse       =   "Previous and     Next Days"
  918.          Top             =   3975
  919.          Width           =   1695
  920.       End
  921.       Begin AwareText fpText2 
  922.          AlignTextH      =   1  'Center
  923.          BackColor       =   &H00C0C0C0&
  924.          BorderStyle     =   0  'No Border
  925.          ControlType     =   2  'Static
  926.          FontBold        =   -1  'True
  927.          FontItalic      =   0   'False
  928.          FontName        =   "MS Sans Serif"
  929.          FontSize        =   8.25
  930.          FontStrikethru  =   0   'False
  931.          FontUnderline   =   0   'False
  932.          ForeColor       =   &H00FF0000&
  933.          Height          =   315
  934.          Index           =   0
  935.          Left            =   210
  936.          TabIndex        =   12
  937.          TabStop         =   0   'False
  938.          Text            =   "Month /Year Header"
  939.          ThreeDOutsideStyle=   1  'Lowered
  940.          ThreeDText      =   1  'Embossed
  941.          ThreeDTextHighlightColor=   &H00FFFFFF&
  942.          ThreeDTextShadowColor=   &H00000010&
  943.          Top             =   3000
  944.          Width           =   1965
  945.       End
  946.       Begin AwareBoolean fpBoolean1 
  947.          BackColor       =   &H00C0C0C0&
  948.          BooleanPicture  =   3  '3D Option Button
  949.          BorderWidth     =   1
  950.          DataField       =   "Header"
  951.          DataSource      =   "Data1"
  952.          FontBold        =   -1  'True
  953.          FontItalic      =   0   'False
  954.          FontName        =   "MS Sans Serif"
  955.          FontSize        =   8.25
  956.          FontStrikethru  =   0   'False
  957.          FontUnderline   =   0   'False
  958.          ForeColor       =   &H000000FF&
  959.          GroupSelect     =   3  'One and Only One
  960.          Height          =   275
  961.          Left            =   240
  962.          TabIndex        =   11
  963.          Tag             =   "1"
  964.          TextFalse       =   "No Headers"
  965.          Top             =   3300
  966.          Width           =   1575
  967.       End
  968.       Begin AwareBoolean fpBoolean2 
  969.          BackColor       =   &H00C0C0C0&
  970.          BooleanPicture  =   3  '3D Option Button
  971.          BorderWidth     =   1
  972.          DataField       =   "Header"
  973.          DataSource      =   "Data1"
  974.          FontBold        =   -1  'True
  975.          FontItalic      =   0   'False
  976.          FontName        =   "MS Sans Serif"
  977.          FontSize        =   8.25
  978.          FontStrikethru  =   0   'False
  979.          FontUnderline   =   0   'False
  980.          ForeColor       =   &H000000FF&
  981.          GroupSelect     =   3  'One and Only One
  982.          GroupTag        =   1
  983.          Height          =   475
  984.          Left            =   240
  985.          MultiLine       =   -1  'True
  986.          TabIndex        =   10
  987.          Tag             =   "2"
  988.          TextFalse       =   "Placed on One Line"
  989.          Top             =   3525
  990.          Width           =   1695
  991.       End
  992.       Begin AwareBoolean fpBoolean3 
  993.          BackColor       =   &H00C0C0C0&
  994.          BooleanPicture  =   3  '3D Option Button
  995.          BorderWidth     =   1
  996.          DataField       =   "Header"
  997.          DataSource      =   "Data1"
  998.          FontBold        =   -1  'True
  999.          FontItalic      =   0   'False
  1000.          FontName        =   "MS Sans Serif"
  1001.          FontSize        =   8.25
  1002.          FontStrikethru  =   0   'False
  1003.          FontUnderline   =   0   'False
  1004.          ForeColor       =   &H000000FF&
  1005.          GroupSelect     =   3  'One and Only One
  1006.          GroupTag        =   2
  1007.          Height          =   450
  1008.          Left            =   240
  1009.          MultiLine       =   -1  'True
  1010.          TabIndex        =   9
  1011.          Tag             =   "3"
  1012.          TextFalse       =   "Placed on Two Lines"
  1013.          Top             =   3950
  1014.          Width           =   1815
  1015.       End
  1016.       Begin AwareLong yback 
  1017.          DataField       =   "yrBackColor"
  1018.          DataSource      =   "Data1"
  1019.          FontBold        =   -1  'True
  1020.          FontItalic      =   0   'False
  1021.          FontName        =   "MS Sans Serif"
  1022.          FontSize        =   8.25
  1023.          FontStrikethru  =   0   'False
  1024.          FontUnderline   =   0   'False
  1025.          Height          =   315
  1026.          Left            =   8280
  1027.          MaxValue        =   "2147483647"
  1028.          MinValue        =   "-2147483647"
  1029.          TabIndex        =   8
  1030.          Text            =   "0"
  1031.          ThreeDTextHighlightColor=   &H00000014&
  1032.          ThreeDTextShadowColor=   &H00000010&
  1033.          Top             =   2040
  1034.          Visible         =   0   'False
  1035.          Width           =   375
  1036.       End
  1037.       Begin AwareLong yfore 
  1038.          DataField       =   "yrForeColor"
  1039.          DataSource      =   "Data1"
  1040.          FontBold        =   -1  'True
  1041.          FontItalic      =   0   'False
  1042.          FontName        =   "MS Sans Serif"
  1043.          FontSize        =   8.25
  1044.          FontStrikethru  =   0   'False
  1045.          FontUnderline   =   0   'False
  1046.          Height          =   315
  1047.          Left            =   8160
  1048.          MaxValue        =   "2147483647"
  1049.          MinValue        =   "-2147483647"
  1050.          TabIndex        =   7
  1051.          Text            =   "0"
  1052.          ThreeDTextHighlightColor=   &H00000014&
  1053.          ThreeDTextShadowColor=   &H00000010&
  1054.          Top             =   1680
  1055.          Visible         =   0   'False
  1056.          Width           =   375
  1057.       End
  1058.       Begin AwareLong mback 
  1059.          DataField       =   "MonBackColor"
  1060.          DataSource      =   "Data1"
  1061.          FontBold        =   -1  'True
  1062.          FontItalic      =   0   'False
  1063.          FontName        =   "MS Sans Serif"
  1064.          FontSize        =   8.25
  1065.          FontStrikethru  =   0   'False
  1066.          FontUnderline   =   0   'False
  1067.          Height          =   315
  1068.          Left            =   8250
  1069.          MaxValue        =   "2147483647"
  1070.          MinValue        =   "-2147483647"
  1071.          TabIndex        =   6
  1072.          Text            =   "0"
  1073.          ThreeDTextHighlightColor=   &H00000014&
  1074.          ThreeDTextShadowColor=   &H00000010&
  1075.          Top             =   825
  1076.          Visible         =   0   'False
  1077.          Width           =   375
  1078.       End
  1079.       Begin AwareLong mfore 
  1080.          DataField       =   "monForeColor"
  1081.          DataSource      =   "Data1"
  1082.          FontBold        =   -1  'True
  1083.          FontItalic      =   0   'False
  1084.          FontName        =   "MS Sans Serif"
  1085.          FontSize        =   8.25
  1086.          FontStrikethru  =   0   'False
  1087.          FontUnderline   =   0   'False
  1088.          Height          =   315
  1089.          InvalidColor    =   &H000000FF&
  1090.          Left            =   8100
  1091.          MaxValue        =   "2147483647"
  1092.          MinValue        =   "-2147483647"
  1093.          TabIndex        =   5
  1094.          Text            =   "0"
  1095.          ThreeDTextHighlightColor=   &H00000014&
  1096.          ThreeDTextShadowColor=   &H00000010&
  1097.          Top             =   480
  1098.          Visible         =   0   'False
  1099.          Width           =   345
  1100.       End
  1101.       Begin AwareLong appfore 
  1102.          DataField       =   "appForeColor"
  1103.          DataSource      =   "Data1"
  1104.          FontBold        =   -1  'True
  1105.          FontItalic      =   0   'False
  1106.          FontName        =   "MS Sans Serif"
  1107.          FontSize        =   8.25
  1108.          FontStrikethru  =   0   'False
  1109.          FontUnderline   =   0   'False
  1110.          Height          =   315
  1111.          Left            =   8160
  1112.          MaxValue        =   "2147483647"
  1113.          MinValue        =   "-2147483647"
  1114.          TabIndex        =   4
  1115.          Text            =   "0"
  1116.          ThreeDTextHighlightColor=   &H00000014&
  1117.          ThreeDTextShadowColor=   &H00000010&
  1118.          Top             =   2760
  1119.          Visible         =   0   'False
  1120.          Width           =   375
  1121.       End
  1122.       Begin AwareLong appback 
  1123.          DataField       =   "appBackColor"
  1124.          DataSource      =   "Data1"
  1125.          FontBold        =   -1  'True
  1126.          FontItalic      =   0   'False
  1127.          FontName        =   "MS Sans Serif"
  1128.          FontSize        =   8.25
  1129.          FontStrikethru  =   0   'False
  1130.          FontUnderline   =   0   'False
  1131.          Height          =   315
  1132.          Left            =   8280
  1133.          MaxValue        =   "2147483647"
  1134.          MinValue        =   "-2147483647"
  1135.          TabIndex        =   3
  1136.          Text            =   "0"
  1137.          ThreeDTextHighlightColor=   &H00000014&
  1138.          ThreeDTextShadowColor=   &H00000010&
  1139.          Top             =   3120
  1140.          Visible         =   0   'False
  1141.          Width           =   375
  1142.       End
  1143.       Begin Data Data1 
  1144.          Caption         =   "Data1"
  1145.          Connect         =   ""
  1146.          DatabaseName    =   ""
  1147.          Exclusive       =   0   'False
  1148.          Height          =   270
  1149.          Left            =   7440
  1150.          Options         =   0
  1151.          ReadOnly        =   0   'False
  1152.          RecordSource    =   "custom"
  1153.          Top             =   5640
  1154.          Visible         =   0   'False
  1155.          Width           =   1140
  1156.       End
  1157.       Begin CommonDialog CMD 
  1158.          Left            =   7980
  1159.          Top             =   3660
  1160.       End
  1161.       Begin CommandButton Command1 
  1162.          Caption         =   "OK"
  1163.          FontBold        =   -1  'True
  1164.          FontItalic      =   0   'False
  1165.          FontName        =   "MS Sans Serif"
  1166.          FontSize        =   9.75
  1167.          FontStrikethru  =   0   'False
  1168.          FontUnderline   =   0   'False
  1169.          Height          =   375
  1170.          Left            =   7350
  1171.          TabIndex        =   2
  1172.          Top             =   4470
  1173.          Width           =   1215
  1174.       End
  1175.       Begin AwareCalendar CustCal 
  1176.          BorderColor     =   &H00000000&
  1177.          BorderGrayAreaColor=   &H00C0C0C0&
  1178.          CurrentDate     =   "19940310"
  1179.          Element3DShadowWidth=   1
  1180.          FontBold        =   -1  'True
  1181.          FontItalic      =   0   'False
  1182.          FontName        =   "MS Sans Serif"
  1183.          FontSize        =   8.25
  1184.          FontStrikethru  =   0   'False
  1185.          FontUnderline   =   0   'False
  1186.          GrayAreaBackColor=   &H00C0C0C0&
  1187.          GrayAreaForeColor=   &H00808080&
  1188.          HeaderStyle     =   1  '1 Line
  1189.          Height          =   2775
  1190.          Left            =   60
  1191.          MonthHeaderStyle=   2  'Drop Down
  1192.          TabIndex        =   1
  1193.          ThreeDFrameWidth=   3
  1194.          ThreeDInsideHighlightColor=   &H00FFFFFF&
  1195.          ThreeDInsideShadowColor=   &H00808080&
  1196.          ThreeDInsideStyle=   2  'Raised
  1197.          ThreeDInsideWidth=   2
  1198.          ThreeDOutsideHighlightColor=   &H00FFFFFF&
  1199.          ThreeDOutsideShadowColor=   &H00808080&
  1200.          ThreeDOutsideStyle=   2  'Raised
  1201.          Top             =   60
  1202.          Width           =   4605
  1203.       End
  1204.    End
  1205. End
  1206.  
  1207. Sub Command1_Click ()
  1208.  
  1209.     'Update all changes made to calendar before hiding form
  1210.     data1.Recordset.Update
  1211.     intro.Show
  1212.     Me.Hide
  1213. End Sub
  1214.  
  1215. Sub Form_Activate ()
  1216.  
  1217.     data1.RecordSource = "Select * From Custom Where Name = " + "'" + selectedname + "'"
  1218.     data1.Refresh
  1219.     
  1220.     'Initialize custom calendar
  1221.     InitCal custom.CustCal, data1
  1222.     
  1223. End Sub
  1224.  
  1225. Sub Form_Load ()
  1226.     
  1227.     centerform Me
  1228.     'Initialize data control
  1229.     data1.DatabaseName = app.Path + "\calendar.mdb"
  1230.     'Select the default record
  1231.     'data1.RecordSource = "Select * From Custom Where Name = 'default'"
  1232.     'data1.Refresh
  1233.  
  1234. End Sub
  1235.  
  1236. Sub fpBoolean1_Click (Button As Integer)
  1237.     'Initialize headerstyle of 0 lines and save to database
  1238.     CustCal.HeaderStyle = 0
  1239.     intro.cal1.HeaderStyle = 0
  1240.     header = fpBoolean1.Tag
  1241. End Sub
  1242.  
  1243. Sub fpBoolean10_Click (Button As Integer)
  1244.     'Initialize monthstyle to scroll and save to database
  1245.     CustCal.MonthHeaderStyle = 1
  1246.     intro.cal1.MonthHeaderStyle = 1
  1247.     monthheader = fpBoolean10.Tag
  1248. End Sub
  1249.  
  1250. Sub fpBoolean11_Click (Button As Integer)
  1251.     'Initialize monthstyle to dropdown and save to database
  1252.     CustCal.MonthHeaderStyle = 2
  1253.     intro.cal1.MonthHeaderStyle = 2
  1254.     monthheader = fpBoolean11.Tag
  1255. End Sub
  1256.  
  1257. Sub fpBoolean12_Click (Button As Integer)
  1258.     'Initialize yearstyle of none and save to database
  1259.     CustCal.YearHeaderStyle = 0
  1260.     intro.cal1.YearHeaderStyle = 0
  1261.     yearheader = fpBoolean12.Tag
  1262. End Sub
  1263.  
  1264. Sub fpBoolean13_Click (Button As Integer)
  1265.     'Initialize yearstyle to scroll and save to database
  1266.     CustCal.YearHeaderStyle = 1
  1267.     intro.cal1.YearHeaderStyle = 1
  1268.     yearheader = fpBoolean13.Tag
  1269. End Sub
  1270.  
  1271. Sub fpBoolean14_Click (Button As Integer)
  1272.     'Initialize yearstyle to dropdown and save to database
  1273.     CustCal.YearHeaderStyle = 2
  1274.     intro.cal1.YearHeaderStyle = 2
  1275.     yearheader = fpBoolean14.Tag
  1276. End Sub
  1277.  
  1278. Sub fpBoolean15_Click (Button As Integer)
  1279.     'Initialize weekday header to none and save to database
  1280.     CustCal.WeekDayHdr = 0
  1281.     intro.cal1.WeekDayHdr = 0
  1282.     weekheader = fpBoolean15.Tag
  1283. End Sub
  1284.  
  1285. Sub fpBoolean16_Click (Button As Integer)
  1286.     'Initialize weekday header to 1 letter and save to database
  1287.     CustCal.WeekDayHdr = 1
  1288.     intro.cal1.WeekDayHdr = 1
  1289.     weekheader = fpBoolean16.Tag
  1290. End Sub
  1291.  
  1292. Sub fpBoolean17_Click (Button As Integer)
  1293.     'Initialize weekday header to 2 letters and save to database
  1294.     CustCal.WeekDayHdr = 2
  1295.     intro.cal1.WeekDayHdr = 2
  1296.     weekheader = fpBoolean17.Tag
  1297. End Sub
  1298.  
  1299. Sub fpBoolean18_Click (Button As Integer)
  1300.     'Initialize weekday header to 3 letters and save to database
  1301.     CustCal.WeekDayHdr = 3
  1302.     intro.cal1.WeekDayHdr = 3
  1303.     weekheader = fpBoolean18.Tag
  1304. End Sub
  1305.  
  1306. Sub fpBoolean19_Click (Button As Integer)
  1307.     'Initialize weekday header to full name and save to database
  1308.     CustCal.WeekDayHdr = 4
  1309.     intro.cal1.WeekDayHdr = 4
  1310.     weekheader = fpBoolean19.Tag
  1311. End Sub
  1312.  
  1313. Sub fpBoolean2_Click (Button As Integer)
  1314.     'Initialize headerstyle of 1 lines and save to database
  1315.     CustCal.HeaderStyle = 1
  1316.     intro.cal1.HeaderStyle = 1
  1317.     header = fpBoolean2.Tag
  1318. End Sub
  1319.  
  1320. Sub fpBoolean20_Click (Button As Integer)
  1321.     'Appointment Days ForeColor
  1322.  
  1323.     'Initialize color chart and choose color
  1324.     Cmd.Color = RGB(0, 0, 255)
  1325.     Cmd.Flags = CC_FULLOPEN Or CC_RGBINIT Or &H8&
  1326.     Cmd.Action = 3
  1327.     
  1328.     'Initialize days as element
  1329.     CustCal.Element = 6
  1330.     intro.cal1.Element = 6
  1331.     CustCal.ElementIndex = selectday
  1332.     intro.cal1.ElementIndex = selectday
  1333.     CustCal.ElementForeColor = Cmd.Color
  1334.     intro.cal1.ElementForeColor = Cmd.Color
  1335.     'Active backcolor
  1336.     actforecolor = Cmd.Color
  1337.  
  1338.     'Copy color value to long control
  1339.     appfore.Text = actforecolor
  1340.  
  1341. End Sub
  1342.  
  1343. Sub fpBoolean21_Click (Button As Integer)
  1344.     'Appointment Days BackColor
  1345.  
  1346.     'Initialize color chart and choose color
  1347.     Cmd.Color = RGB(0, 0, 255)
  1348.     Cmd.Flags = CC_FULLOPEN Or CC_RGBINIT Or &H8&
  1349.     Cmd.Action = 3
  1350.     
  1351.     'Initialize days as element
  1352.     CustCal.Element = 6
  1353.     intro.cal1.Element = 6
  1354.     CustCal.ElementIndex = selectday
  1355.     intro.cal1.ElementIndex = selectday
  1356.     CustCal.ElementBackColor = Cmd.Color
  1357.     intro.cal1.ElementBackColor = Cmd.Color
  1358.     'Active backcolor
  1359.     actbackcolor = Cmd.Color
  1360.  
  1361.     'Copy color value to long control
  1362.     appback.Text = actbackcolor
  1363.  
  1364. End Sub
  1365.  
  1366. Sub fpBoolean22_Click (Button As Integer)
  1367.     'MonthHeader ForeColor
  1368.  
  1369.     'Initialize color chart and choose color
  1370.     Cmd.Color = RGB(0, 0, 255)
  1371.     Cmd.Flags = CC_FULLOPEN Or CC_RGBINIT Or &H8&
  1372.     Cmd.Action = 3
  1373.     
  1374.     'Initialize month as element
  1375.     CustCal.Element = 1
  1376.     intro.cal1.Element = 1
  1377.     CustCal.ElementForeColor = Cmd.Color
  1378.     intro.cal1.ElementForeColor = Cmd.Color
  1379.     'Active forecolor
  1380.     actforecolor = Cmd.Color
  1381.  
  1382.     'Copy color value to long control
  1383.     mfore.Text = actforecolor
  1384.     
  1385.  
  1386. End Sub
  1387.  
  1388. Sub fpBoolean23_Click (Button As Integer)
  1389.     'YearHeader ForeColor
  1390.  
  1391.     'Initialize color chart and choose color
  1392.     Cmd.Color = RGB(0, 0, 255)
  1393.     Cmd.Flags = CC_FULLOPEN Or CC_RGBINIT Or &H8&
  1394.     Cmd.Action = 3
  1395.     
  1396.     'Initialize year as element
  1397.     CustCal.Element = 3
  1398.     intro.cal1.Element = 3
  1399.     CustCal.ElementForeColor = Cmd.Color
  1400.     intro.cal1.ElementForeColor = Cmd.Color
  1401.     'Active forecolor
  1402.     actforecolor = Cmd.Color
  1403.  
  1404.     'Copy color value to long control
  1405.     yfore.Text = actforecolor
  1406.  
  1407.  
  1408. End Sub
  1409.  
  1410. Sub fpBoolean24_Click (Button As Integer)
  1411.  
  1412.     'MonthHeader BackColor
  1413.  
  1414.     'Initialize color chart and choose color
  1415.     Cmd.Color = RGB(0, 0, 255)
  1416.     Cmd.Flags = CC_FULLOPEN Or CC_RGBINIT Or &H8&
  1417.     Cmd.Action = 3
  1418.     
  1419.     'Initialize month as element
  1420.     CustCal.Element = 1
  1421.     intro.cal1.Element = 1
  1422.     CustCal.ElementBackColor = Cmd.Color
  1423.     intro.cal1.ElementBackColor = Cmd.Color
  1424.     
  1425.     'Active backcolor
  1426.     actbackcolor = Cmd.Color
  1427.  
  1428.     'Copy color value to long control
  1429.     mback.Text = actbackcolor
  1430.  
  1431.  
  1432. End Sub
  1433.  
  1434. Sub fpBoolean25_Click (Button As Integer)
  1435.     'YearHeader BackColor
  1436.  
  1437.     'Initialize color chart and choose color
  1438.     Cmd.Color = RGB(0, 0, 255)
  1439.     Cmd.Flags = CC_FULLOPEN Or CC_RGBINIT Or &H8&
  1440.     Cmd.Action = 3
  1441.     
  1442.     'Initialize year as element
  1443.     CustCal.Element = 3
  1444.     intro.cal1.Element = 3
  1445.     CustCal.ElementBackColor = Cmd.Color
  1446.     intro.cal1.ElementBackColor = Cmd.Color
  1447.     'Active backcolor
  1448.     actbackcolor = Cmd.Color
  1449.  
  1450.     'Copy color value to long control
  1451.     yback.Text = actbackcolor
  1452.  
  1453.  
  1454.  
  1455. End Sub
  1456.  
  1457. Sub fpBoolean3_Click (Button As Integer)
  1458.         'Initialize headerstyle of 2 lines and save to database
  1459.     CustCal.HeaderStyle = 2
  1460.     intro.cal1.HeaderStyle = 2
  1461.     header = fpBoolean3.Tag
  1462. End Sub
  1463.  
  1464. Sub fpBoolean4_Click (Button As Integer)
  1465.     CustCal.FirstDayOfWeek = 0
  1466.     intro.cal1.FirstDayOfWeek = 0
  1467.     firstday = fpBoolean4.Tag
  1468. End Sub
  1469.  
  1470. Sub fpBoolean5_Click (Button As Integer)
  1471.     CustCal.FirstDayOfWeek = 1
  1472.     intro.cal1.FirstDayOfWeek = 1
  1473.     firstday = fpBoolean5.Tag
  1474. End Sub
  1475.  
  1476. Sub fpBoolean6_Click (Button As Integer)
  1477.     CustCal.GrayAreaStyle = 0
  1478.     intro.cal1.GrayAreaStyle = 0
  1479.     graystyle = fpBoolean6.Tag
  1480. End Sub
  1481.  
  1482. Sub fpBoolean7_Click (Button As Integer)
  1483.     CustCal.GrayAreaStyle = 1
  1484.     intro.cal1.GrayAreaStyle = 1
  1485.     graystyle = fpBoolean7.Tag
  1486. End Sub
  1487.  
  1488. Sub fpBoolean8_Click (Button As Integer)
  1489.     CustCal.GrayAreaStyle = 2
  1490.     intro.cal1.GrayAreaStyle = 2
  1491.     graystyle = fpBoolean8.Tag
  1492. End Sub
  1493.  
  1494. Sub fpBoolean9_Click (Button As Integer)
  1495.         'Initialize monthstyle of none and save to database
  1496.     CustCal.MonthHeaderStyle = 0
  1497.     intro.cal1.MonthHeaderStyle = 0
  1498.     monthheader = fpBoolean9.Tag
  1499. End Sub
  1500.  
  1501.