home *** CD-ROM | disk | FTP | other *** search
/ PC-Test Pro / PCTESTPRO.iso / clocks / attall / entp / cal.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1994-08-08  |  49.7 KB  |  1,547 lines
  1. VERSION 2.00
  2. Begin Form Calendar 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00C0C0C0&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Calendar"
  7.    ClientHeight    =   3795
  8.    ClientLeft      =   1320
  9.    ClientTop       =   1425
  10.    ClientWidth     =   3255
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    Height          =   4230
  14.    HelpContextID   =   40002
  15.    Icon            =   CAL.FRX:0000
  16.    Left            =   1245
  17.    LinkMode        =   1  'Source
  18.    LinkTopic       =   "Form2"
  19.    MaxButton       =   0   'False
  20.    MinButton       =   0   'False
  21.    ScaleHeight     =   253
  22.    ScaleMode       =   3  'Pixel
  23.    ScaleWidth      =   217
  24.    Top             =   1065
  25.    Width           =   3405
  26.    Begin VScrollBar YearScroll 
  27.       Height          =   1740
  28.       LargeChange     =   10
  29.       Left            =   2775
  30.       Max             =   2078
  31.       Min             =   1753
  32.       TabIndex        =   24
  33.       Top             =   570
  34.       Value           =   1753
  35.       Width           =   240
  36.    End
  37.    Begin HScrollBar MonthScroll 
  38.       Height          =   240
  39.       Left            =   225
  40.       Max             =   13
  41.       TabIndex        =   25
  42.       Top             =   2280
  43.       Width           =   2565
  44.    End
  45.    Begin PictureBox Picture1 
  46.       AutoSize        =   -1  'True
  47.       BorderStyle     =   0  'None
  48.       Height          =   135
  49.       Left            =   3015
  50.       Picture         =   CAL.FRX:0302
  51.       ScaleHeight     =   135
  52.       ScaleWidth      =   165
  53.       TabIndex        =   1
  54.       TabStop         =   0   'False
  55.       Tag             =   "Stuck"
  56.       Top             =   90
  57.       Width           =   165
  58.    End
  59.    Begin CommandButton Command2 
  60.       Caption         =   "OK"
  61.       Default         =   -1  'True
  62.       Height          =   345
  63.       Index           =   0
  64.       Left            =   735
  65.       TabIndex        =   0
  66.       Top             =   3300
  67.       Width           =   855
  68.    End
  69.    Begin CommandButton Command1 
  70.       Caption         =   "Today"
  71.       Height          =   345
  72.       Left            =   1620
  73.       TabIndex        =   16
  74.       Top             =   3300
  75.       Width           =   840
  76.    End
  77.    Begin SSCommand Command3 
  78.       BevelWidth      =   1
  79.       Caption         =   "Dec"
  80.       FontBold        =   0   'False
  81.       FontItalic      =   0   'False
  82.       FontName        =   "MS Sans Serif"
  83.       FontSize        =   8.25
  84.       FontStrikethru  =   0   'False
  85.       FontUnderline   =   0   'False
  86.       Height          =   270
  87.       Index           =   11
  88.       Left            =   2550
  89.       RoundedCorners  =   0   'False
  90.       TabIndex        =   15
  91.       Top             =   2895
  92.       Width           =   480
  93.    End
  94.    Begin SSCommand Command3 
  95.       BevelWidth      =   1
  96.       Caption         =   "Nov"
  97.       FontBold        =   0   'False
  98.       FontItalic      =   0   'False
  99.       FontName        =   "MS Sans Serif"
  100.       FontSize        =   8.25
  101.       FontStrikethru  =   0   'False
  102.       FontUnderline   =   0   'False
  103.       Height          =   270
  104.       Index           =   10
  105.       Left            =   2085
  106.       RoundedCorners  =   0   'False
  107.       TabIndex        =   14
  108.       Top             =   2895
  109.       Width           =   480
  110.    End
  111.    Begin SSCommand Command3 
  112.       BevelWidth      =   1
  113.       Caption         =   "Oct"
  114.       FontBold        =   0   'False
  115.       FontItalic      =   0   'False
  116.       FontName        =   "MS Sans Serif"
  117.       FontSize        =   8.25
  118.       FontStrikethru  =   0   'False
  119.       FontUnderline   =   0   'False
  120.       Height          =   270
  121.       Index           =   9
  122.       Left            =   1620
  123.       RoundedCorners  =   0   'False
  124.       TabIndex        =   13
  125.       Top             =   2895
  126.       Width           =   480
  127.    End
  128.    Begin SSCommand Command3 
  129.       BevelWidth      =   1
  130.       Caption         =   "Sep"
  131.       FontBold        =   0   'False
  132.       FontItalic      =   0   'False
  133.       FontName        =   "MS Sans Serif"
  134.       FontSize        =   8.25
  135.       FontStrikethru  =   0   'False
  136.       FontUnderline   =   0   'False
  137.       Height          =   270
  138.       Index           =   8
  139.       Left            =   1155
  140.       RoundedCorners  =   0   'False
  141.       TabIndex        =   12
  142.       Top             =   2895
  143.       Width           =   480
  144.    End
  145.    Begin SSCommand Command3 
  146.       BevelWidth      =   1
  147.       Caption         =   "Aug"
  148.       FontBold        =   0   'False
  149.       FontItalic      =   0   'False
  150.       FontName        =   "MS Sans Serif"
  151.       FontSize        =   8.25
  152.       FontStrikethru  =   0   'False
  153.       FontUnderline   =   0   'False
  154.       Height          =   270
  155.       Index           =   7
  156.       Left            =   690
  157.       RoundedCorners  =   0   'False
  158.       TabIndex        =   11
  159.       Top             =   2895
  160.       Width           =   480
  161.    End
  162.    Begin SSCommand Command3 
  163.       BevelWidth      =   1
  164.       Caption         =   "Jul"
  165.       FontBold        =   0   'False
  166.       FontItalic      =   0   'False
  167.       FontName        =   "MS Sans Serif"
  168.       FontSize        =   8.25
  169.       FontStrikethru  =   0   'False
  170.       FontUnderline   =   0   'False
  171.       Height          =   270
  172.       Index           =   6
  173.       Left            =   225
  174.       RoundedCorners  =   0   'False
  175.       TabIndex        =   10
  176.       Top             =   2895
  177.       Width           =   480
  178.    End
  179.    Begin SSCommand Command3 
  180.       BevelWidth      =   1
  181.       Caption         =   "Jun"
  182.       FontBold        =   0   'False
  183.       FontItalic      =   0   'False
  184.       FontName        =   "MS Sans Serif"
  185.       FontSize        =   8.25
  186.       FontStrikethru  =   0   'False
  187.       FontUnderline   =   0   'False
  188.       Height          =   270
  189.       Index           =   5
  190.       Left            =   2550
  191.       RoundedCorners  =   0   'False
  192.       TabIndex        =   9
  193.       Top             =   2640
  194.       Width           =   480
  195.    End
  196.    Begin SSCommand Command3 
  197.       BevelWidth      =   1
  198.       Caption         =   "May"
  199.       FontBold        =   0   'False
  200.       FontItalic      =   0   'False
  201.       FontName        =   "MS Sans Serif"
  202.       FontSize        =   8.25
  203.       FontStrikethru  =   0   'False
  204.       FontUnderline   =   0   'False
  205.       Height          =   270
  206.       Index           =   4
  207.       Left            =   2085
  208.       RoundedCorners  =   0   'False
  209.       TabIndex        =   8
  210.       Top             =   2640
  211.       Width           =   480
  212.    End
  213.    Begin SSCommand Command3 
  214.       BevelWidth      =   1
  215.       Caption         =   "Apr"
  216.       FontBold        =   0   'False
  217.       FontItalic      =   0   'False
  218.       FontName        =   "MS Sans Serif"
  219.       FontSize        =   8.25
  220.       FontStrikethru  =   0   'False
  221.       FontUnderline   =   0   'False
  222.       Height          =   270
  223.       Index           =   3
  224.       Left            =   1620
  225.       RoundedCorners  =   0   'False
  226.       TabIndex        =   7
  227.       Top             =   2640
  228.       Width           =   480
  229.    End
  230.    Begin SSCommand Command3 
  231.       BevelWidth      =   1
  232.       Caption         =   "Mar"
  233.       FontBold        =   0   'False
  234.       FontItalic      =   0   'False
  235.       FontName        =   "MS Sans Serif"
  236.       FontSize        =   8.25
  237.       FontStrikethru  =   0   'False
  238.       FontUnderline   =   0   'False
  239.       Height          =   270
  240.       Index           =   2
  241.       Left            =   1155
  242.       RoundedCorners  =   0   'False
  243.       TabIndex        =   6
  244.       Top             =   2640
  245.       Width           =   480
  246.    End
  247.    Begin SSCommand Command3 
  248.       BevelWidth      =   1
  249.       Caption         =   "Feb"
  250.       FontBold        =   0   'False
  251.       FontItalic      =   0   'False
  252.       FontName        =   "MS Sans Serif"
  253.       FontSize        =   8.25
  254.       FontStrikethru  =   0   'False
  255.       FontUnderline   =   0   'False
  256.       Height          =   270
  257.       Index           =   1
  258.       Left            =   690
  259.       RoundedCorners  =   0   'False
  260.       TabIndex        =   5
  261.       Top             =   2640
  262.       Width           =   480
  263.    End
  264.    Begin SSCommand Command3 
  265.       BevelWidth      =   1
  266.       Caption         =   "Jan"
  267.       FontBold        =   0   'False
  268.       FontItalic      =   0   'False
  269.       FontName        =   "MS Sans Serif"
  270.       FontSize        =   8.25
  271.       FontStrikethru  =   0   'False
  272.       FontUnderline   =   0   'False
  273.       Height          =   270
  274.       Index           =   0
  275.       Left            =   225
  276.       RoundedCorners  =   0   'False
  277.       TabIndex        =   4
  278.       Top             =   2640
  279.       Width           =   480
  280.    End
  281.    Begin TextBox MonthValue 
  282.       Height          =   330
  283.       Left            =   3880
  284.       TabIndex        =   33
  285.       Top             =   105
  286.       Visible         =   0   'False
  287.       Width           =   390
  288.    End
  289.    Begin Label Label2 
  290.       Alignment       =   2  'Center
  291.       BackColor       =   &H00C0C0C0&
  292.       BackStyle       =   0  'Transparent
  293.       Caption         =   "S"
  294.       FontBold        =   0   'False
  295.       FontItalic      =   0   'False
  296.       FontName        =   "MS Sans Serif"
  297.       FontSize        =   8.25
  298.       FontStrikethru  =   0   'False
  299.       FontUnderline   =   0   'False
  300.       ForeColor       =   &H000000FF&
  301.       Height          =   255
  302.       Index           =   8
  303.       Left            =   240
  304.       TabIndex        =   26
  305.       Top             =   600
  306.       Width           =   375
  307.    End
  308.    Begin Label Label2 
  309.       Alignment       =   2  'Center
  310.       BackColor       =   &H00C0C0C0&
  311.       BackStyle       =   0  'Transparent
  312.       Caption         =   "M"
  313.       FontBold        =   0   'False
  314.       FontItalic      =   0   'False
  315.       FontName        =   "MS Sans Serif"
  316.       FontSize        =   8.25
  317.       FontStrikethru  =   0   'False
  318.       FontUnderline   =   0   'False
  319.       ForeColor       =   &H00000000&
  320.       Height          =   255
  321.       Index           =   7
  322.       Left            =   600
  323.       TabIndex        =   27
  324.       Top             =   600
  325.       Width           =   375
  326.    End
  327.    Begin Label Label2 
  328.       Alignment       =   2  'Center
  329.       BackColor       =   &H00C0C0C0&
  330.       BackStyle       =   0  'Transparent
  331.       Caption         =   "T"
  332.       FontBold        =   0   'False
  333.       FontItalic      =   0   'False
  334.       FontName        =   "MS Sans Serif"
  335.       FontSize        =   8.25
  336.       FontStrikethru  =   0   'False
  337.       FontUnderline   =   0   'False
  338.       ForeColor       =   &H00000000&
  339.       Height          =   255
  340.       Index           =   9
  341.       Left            =   960
  342.       TabIndex        =   28
  343.       Top             =   600
  344.       Width           =   375
  345.    End
  346.    Begin Label Label2 
  347.       Alignment       =   2  'Center
  348.       BackColor       =   &H00C0C0C0&
  349.       BackStyle       =   0  'Transparent
  350.       Caption         =   "W"
  351.       FontBold        =   0   'False
  352.       FontItalic      =   0   'False
  353.       FontName        =   "MS Sans Serif"
  354.       FontSize        =   8.25
  355.       FontStrikethru  =   0   'False
  356.       FontUnderline   =   0   'False
  357.       ForeColor       =   &H00000000&
  358.       Height          =   255
  359.       Index           =   10
  360.       Left            =   1320
  361.       TabIndex        =   29
  362.       Top             =   600
  363.       Width           =   375
  364.    End
  365.    Begin Label Label2 
  366.       Alignment       =   2  'Center
  367.       BackColor       =   &H00C0C0C0&
  368.       BackStyle       =   0  'Transparent
  369.       Caption         =   "T"
  370.       FontBold        =   0   'False
  371.       FontItalic      =   0   'False
  372.       FontName        =   "MS Sans Serif"
  373.       FontSize        =   8.25
  374.       FontStrikethru  =   0   'False
  375.       FontUnderline   =   0   'False
  376.       ForeColor       =   &H00000000&
  377.       Height          =   255
  378.       Index           =   11
  379.       Left            =   1680
  380.       TabIndex        =   30
  381.       Top             =   600
  382.       Width           =   375
  383.    End
  384.    Begin Label Label2 
  385.       Alignment       =   2  'Center
  386.       BackColor       =   &H00C0C0C0&
  387.       BackStyle       =   0  'Transparent
  388.       Caption         =   "F"
  389.       FontBold        =   0   'False
  390.       FontItalic      =   0   'False
  391.       FontName        =   "MS Sans Serif"
  392.       FontSize        =   8.25
  393.       FontStrikethru  =   0   'False
  394.       FontUnderline   =   0   'False
  395.       ForeColor       =   &H00000000&
  396.       Height          =   255
  397.       Index           =   12
  398.       Left            =   2040
  399.       TabIndex        =   35
  400.       Top             =   600
  401.       Width           =   375
  402.    End
  403.    Begin Label Label2 
  404.       Alignment       =   2  'Center
  405.       BackColor       =   &H00C0C0C0&
  406.       BackStyle       =   0  'Transparent
  407.       Caption         =   "S"
  408.       FontBold        =   0   'False
  409.       FontItalic      =   0   'False
  410.       FontName        =   "MS Sans Serif"
  411.       FontSize        =   8.25
  412.       FontStrikethru  =   0   'False
  413.       FontUnderline   =   0   'False
  414.       ForeColor       =   &H00FF0000&
  415.       Height          =   255
  416.       Index           =   13
  417.       Left            =   2400
  418.       TabIndex        =   36
  419.       Top             =   600
  420.       Width           =   375
  421.    End
  422.    Begin Label Mh3d1 
  423.       Alignment       =   2  'Center
  424.       BackColor       =   &H00C0C0C0&
  425.       FontBold        =   0   'False
  426.       FontItalic      =   0   'False
  427.       FontName        =   "MS Sans Serif"
  428.       FontSize        =   8.25
  429.       FontStrikethru  =   0   'False
  430.       FontUnderline   =   0   'False
  431.       ForeColor       =   &H00000000&
  432.       Height          =   225
  433.       Index           =   0
  434.       Left            =   240
  435.       TabIndex        =   37
  436.       Top             =   855
  437.       Width           =   375
  438.    End
  439.    Begin Label Mh3d1 
  440.       Alignment       =   2  'Center
  441.       BackColor       =   &H00C0C0C0&
  442.       Caption         =   "1"
  443.       FontBold        =   0   'False
  444.       FontItalic      =   0   'False
  445.       FontName        =   "MS Sans Serif"
  446.       FontSize        =   8.25
  447.       FontStrikethru  =   0   'False
  448.       FontUnderline   =   0   'False
  449.       ForeColor       =   &H00000000&
  450.       Height          =   225
  451.       Index           =   1
  452.       Left            =   600
  453.       TabIndex        =   38
  454.       Top             =   855
  455.       Width           =   375
  456.    End
  457.    Begin Label Mh3d1 
  458.       Alignment       =   2  'Center
  459.       BackColor       =   &H00C0C0C0&
  460.       Caption         =   "2"
  461.       FontBold        =   0   'False
  462.       FontItalic      =   0   'False
  463.       FontName        =   "MS Sans Serif"
  464.       FontSize        =   8.25
  465.       FontStrikethru  =   0   'False
  466.       FontUnderline   =   0   'False
  467.       ForeColor       =   &H00000000&
  468.       Height          =   225
  469.       Index           =   2
  470.       Left            =   960
  471.       TabIndex        =   39
  472.       Top             =   855
  473.       Width           =   375
  474.    End
  475.    Begin Label Mh3d1 
  476.       Alignment       =   2  'Center
  477.       BackColor       =   &H00C0C0C0&
  478.       Caption         =   "3"
  479.       FontBold        =   0   'False
  480.       FontItalic      =   0   'False
  481.       FontName        =   "MS Sans Serif"
  482.       FontSize        =   8.25
  483.       FontStrikethru  =   0   'False
  484.       FontUnderline   =   0   'False
  485.       ForeColor       =   &H00000000&
  486.       Height          =   225
  487.       Index           =   3
  488.       Left            =   1320
  489.       TabIndex        =   40
  490.       Top             =   855
  491.       Width           =   375
  492.    End
  493.    Begin Label Mh3d1 
  494.       Alignment       =   2  'Center
  495.       BackColor       =   &H00C0C0C0&
  496.       Caption         =   "4"
  497.       FontBold        =   0   'False
  498.       FontItalic      =   0   'False
  499.       FontName        =   "MS Sans Serif"
  500.       FontSize        =   8.25
  501.       FontStrikethru  =   0   'False
  502.       FontUnderline   =   0   'False
  503.       ForeColor       =   &H00000000&
  504.       Height          =   225
  505.       Index           =   4
  506.       Left            =   1680
  507.       TabIndex        =   41
  508.       Top             =   855
  509.       Width           =   375
  510.    End
  511.    Begin Label Mh3d1 
  512.       Alignment       =   2  'Center
  513.       BackColor       =   &H00C0C0C0&
  514.       Caption         =   "5"
  515.       FontBold        =   0   'False
  516.       FontItalic      =   0   'False
  517.       FontName        =   "MS Sans Serif"
  518.       FontSize        =   8.25
  519.       FontStrikethru  =   0   'False
  520.       FontUnderline   =   0   'False
  521.       ForeColor       =   &H00000000&
  522.       Height          =   225
  523.       Index           =   5
  524.       Left            =   2040
  525.       TabIndex        =   42
  526.       Top             =   855
  527.       Width           =   375
  528.    End
  529.    Begin Label Mh3d1 
  530.       Alignment       =   2  'Center
  531.       BackColor       =   &H00C0C0C0&
  532.       Caption         =   "6"
  533.       FontBold        =   0   'False
  534.       FontItalic      =   0   'False
  535.       FontName        =   "MS Sans Serif"
  536.       FontSize        =   8.25
  537.       FontStrikethru  =   0   'False
  538.       FontUnderline   =   0   'False
  539.       ForeColor       =   &H00000000&
  540.       Height          =   225
  541.       Index           =   6
  542.       Left            =   2400
  543.       TabIndex        =   43
  544.       Top             =   855
  545.       Width           =   375
  546.    End
  547.    Begin Label Mh3d1 
  548.       Alignment       =   2  'Center
  549.       BackColor       =   &H00C0C0C0&
  550.       Caption         =   "7"
  551.       FontBold        =   0   'False
  552.       FontItalic      =   0   'False
  553.       FontName        =   "MS Sans Serif"
  554.       FontSize        =   8.25
  555.       FontStrikethru  =   0   'False
  556.       FontUnderline   =   0   'False
  557.       ForeColor       =   &H00000000&
  558.       Height          =   225
  559.       Index           =   7
  560.       Left            =   240
  561.       TabIndex        =   44
  562.       Top             =   1080
  563.       Width           =   375
  564.    End
  565.    Begin Label Mh3d1 
  566.       Alignment       =   2  'Center
  567.       BackColor       =   &H00C0C0C0&
  568.       Caption         =   "8"
  569.       FontBold        =   0   'False
  570.       FontItalic      =   0   'False
  571.       FontName        =   "MS Sans Serif"
  572.       FontSize        =   8.25
  573.       FontStrikethru  =   0   'False
  574.       FontUnderline   =   0   'False
  575.       ForeColor       =   &H00000000&
  576.       Height          =   225
  577.       Index           =   8
  578.       Left            =   600
  579.       TabIndex        =   45
  580.       Top             =   1080
  581.       Width           =   375
  582.    End
  583.    Begin Label Mh3d1 
  584.       Alignment       =   2  'Center
  585.       BackColor       =   &H00C0C0C0&
  586.       Caption         =   "9"
  587.       FontBold        =   0   'False
  588.       FontItalic      =   0   'False
  589.       FontName        =   "MS Sans Serif"
  590.       FontSize        =   8.25
  591.       FontStrikethru  =   0   'False
  592.       FontUnderline   =   0   'False
  593.       ForeColor       =   &H00000000&
  594.       Height          =   225
  595.       Index           =   9
  596.       Left            =   960
  597.       TabIndex        =   46
  598.       Top             =   1080
  599.       Width           =   375
  600.    End
  601.    Begin Label Mh3d1 
  602.       Alignment       =   2  'Center
  603.       BackColor       =   &H00C0C0C0&
  604.       Caption         =   "10"
  605.       FontBold        =   0   'False
  606.       FontItalic      =   0   'False
  607.       FontName        =   "MS Sans Serif"
  608.       FontSize        =   8.25
  609.       FontStrikethru  =   0   'False
  610.       FontUnderline   =   0   'False
  611.       ForeColor       =   &H00000000&
  612.       Height          =   225
  613.       Index           =   10
  614.       Left            =   1320
  615.       TabIndex        =   47
  616.       Top             =   1080
  617.       Width           =   375
  618.    End
  619.    Begin Label Mh3d1 
  620.       Alignment       =   2  'Center
  621.       BackColor       =   &H00C0C0C0&
  622.       Caption         =   "11"
  623.       FontBold        =   0   'False
  624.       FontItalic      =   0   'False
  625.       FontName        =   "MS Sans Serif"
  626.       FontSize        =   8.25
  627.       FontStrikethru  =   0   'False
  628.       FontUnderline   =   0   'False
  629.       ForeColor       =   &H00000000&
  630.       Height          =   225
  631.       Index           =   11
  632.       Left            =   1680
  633.       TabIndex        =   48
  634.       Top             =   1080
  635.       Width           =   375
  636.    End
  637.    Begin Label Mh3d1 
  638.       Alignment       =   2  'Center
  639.       BackColor       =   &H00C0C0C0&
  640.       Caption         =   "12"
  641.       FontBold        =   0   'False
  642.       FontItalic      =   0   'False
  643.       FontName        =   "MS Sans Serif"
  644.       FontSize        =   8.25
  645.       FontStrikethru  =   0   'False
  646.       FontUnderline   =   0   'False
  647.       ForeColor       =   &H00000000&
  648.       Height          =   225
  649.       Index           =   12
  650.       Left            =   2040
  651.       TabIndex        =   49
  652.       Top             =   1080
  653.       Width           =   375
  654.    End
  655.    Begin Label Mh3d1 
  656.       Alignment       =   2  'Center
  657.       BackColor       =   &H00C0C0C0&
  658.       Caption         =   "13"
  659.       FontBold        =   0   'False
  660.       FontItalic      =   0   'False
  661.       FontName        =   "MS Sans Serif"
  662.       FontSize        =   8.25
  663.       FontStrikethru  =   0   'False
  664.       FontUnderline   =   0   'False
  665.       ForeColor       =   &H00000000&
  666.       Height          =   225
  667.       Index           =   13
  668.       Left            =   2400
  669.       TabIndex        =   50
  670.       Top             =   1080
  671.       Width           =   375
  672.    End
  673.    Begin Label Mh3d1 
  674.       Alignment       =   2  'Center
  675.       BackColor       =   &H00C0C0C0&
  676.       Caption         =   "14"
  677.       FontBold        =   0   'False
  678.       FontItalic      =   0   'False
  679.       FontName        =   "MS Sans Serif"
  680.       FontSize        =   8.25
  681.       FontStrikethru  =   0   'False
  682.       FontUnderline   =   0   'False
  683.       ForeColor       =   &H00000000&
  684.       Height          =   225
  685.       Index           =   14
  686.       Left            =   240
  687.       TabIndex        =   51
  688.       Top             =   1320
  689.       Width           =   375
  690.    End
  691.    Begin Label Mh3d1 
  692.       Alignment       =   2  'Center
  693.       BackColor       =   &H00C0C0C0&
  694.       Caption         =   "15"
  695.       FontBold        =   0   'False
  696.       FontItalic      =   0   'False
  697.       FontName        =   "MS Sans Serif"
  698.       FontSize        =   8.25
  699.       FontStrikethru  =   0   'False
  700.       FontUnderline   =   0   'False
  701.       ForeColor       =   &H00000000&
  702.       Height          =   225
  703.       Index           =   15
  704.       Left            =   600
  705.       TabIndex        =   52
  706.       Top             =   1320
  707.       Width           =   375
  708.    End
  709.    Begin Label Mh3d1 
  710.       Alignment       =   2  'Center
  711.       BackColor       =   &H00C0C0C0&
  712.       Caption         =   "16"
  713.       FontBold        =   0   'False
  714.       FontItalic      =   0   'False
  715.       FontName        =   "MS Sans Serif"
  716.       FontSize        =   8.25
  717.       FontStrikethru  =   0   'False
  718.       FontUnderline   =   0   'False
  719.       ForeColor       =   &H00000000&
  720.       Height          =   225
  721.       Index           =   16
  722.       Left            =   960
  723.       TabIndex        =   53
  724.       Top             =   1320
  725.       Width           =   375
  726.    End
  727.    Begin Label Mh3d1 
  728.       Alignment       =   2  'Center
  729.       BackColor       =   &H00C0C0C0&
  730.       Caption         =   "17"
  731.       FontBold        =   0   'False
  732.       FontItalic      =   0   'False
  733.       FontName        =   "MS Sans Serif"
  734.       FontSize        =   8.25
  735.       FontStrikethru  =   0   'False
  736.       FontUnderline   =   0   'False
  737.       ForeColor       =   &H00000000&
  738.       Height          =   225
  739.       Index           =   17
  740.       Left            =   1320
  741.       TabIndex        =   54
  742.       Top             =   1320
  743.       Width           =   375
  744.    End
  745.    Begin Label Mh3d1 
  746.       Alignment       =   2  'Center
  747.       BackColor       =   &H00C0C0C0&
  748.       Caption         =   "18"
  749.       FontBold        =   0   'False
  750.       FontItalic      =   0   'False
  751.       FontName        =   "MS Sans Serif"
  752.       FontSize        =   8.25
  753.       FontStrikethru  =   0   'False
  754.       FontUnderline   =   0   'False
  755.       ForeColor       =   &H00000000&
  756.       Height          =   225
  757.       Index           =   18
  758.       Left            =   1680
  759.       TabIndex        =   55
  760.       Top             =   1320
  761.       Width           =   375
  762.    End
  763.    Begin Label Mh3d1 
  764.       Alignment       =   2  'Center
  765.       BackColor       =   &H00C0C0C0&
  766.       Caption         =   "19"
  767.       FontBold        =   0   'False
  768.       FontItalic      =   0   'False
  769.       FontName        =   "MS Sans Serif"
  770.       FontSize        =   8.25
  771.       FontStrikethru  =   0   'False
  772.       FontUnderline   =   0   'False
  773.       ForeColor       =   &H00000000&
  774.       Height          =   225
  775.       Index           =   19
  776.       Left            =   2040
  777.       TabIndex        =   56
  778.       Top             =   1320
  779.       Width           =   375
  780.    End
  781.    Begin Label Mh3d1 
  782.       Alignment       =   2  'Center
  783.       BackColor       =   &H00C0C0C0&
  784.       Caption         =   "20"
  785.       FontBold        =   0   'False
  786.       FontItalic      =   0   'False
  787.       FontName        =   "MS Sans Serif"
  788.       FontSize        =   8.25
  789.       FontStrikethru  =   0   'False
  790.       FontUnderline   =   0   'False
  791.       ForeColor       =   &H00000000&
  792.       Height          =   225
  793.       Index           =   20
  794.       Left            =   2400
  795.       TabIndex        =   57
  796.       Top             =   1320
  797.       Width           =   375
  798.    End
  799.    Begin Label Mh3d1 
  800.       Alignment       =   2  'Center
  801.       BackColor       =   &H00C0C0C0&
  802.       Caption         =   "21"
  803.       FontBold        =   0   'False
  804.       FontItalic      =   0   'False
  805.       FontName        =   "MS Sans Serif"
  806.       FontSize        =   8.25
  807.       FontStrikethru  =   0   'False
  808.       FontUnderline   =   0   'False
  809.       ForeColor       =   &H00000000&
  810.       Height          =   225
  811.       Index           =   21
  812.       Left            =   240
  813.       TabIndex        =   58
  814.       Top             =   1560
  815.       Width           =   375
  816.    End
  817.    Begin Label Mh3d1 
  818.       Alignment       =   2  'Center
  819.       BackColor       =   &H00C0C0C0&
  820.       Caption         =   "22"
  821.       FontBold        =   0   'False
  822.       FontItalic      =   0   'False
  823.       FontName        =   "MS Sans Serif"
  824.       FontSize        =   8.25
  825.       FontStrikethru  =   0   'False
  826.       FontUnderline   =   0   'False
  827.       ForeColor       =   &H00000000&
  828.       Height          =   225
  829.       Index           =   22
  830.       Left            =   600
  831.       TabIndex        =   59
  832.       Top             =   1560
  833.       Width           =   375
  834.    End
  835.    Begin Label Mh3d1 
  836.       Alignment       =   2  'Center
  837.       BackColor       =   &H00C0C0C0&
  838.       Caption         =   "23"
  839.       FontBold        =   0   'False
  840.       FontItalic      =   0   'False
  841.       FontName        =   "MS Sans Serif"
  842.       FontSize        =   8.25
  843.       FontStrikethru  =   0   'False
  844.       FontUnderline   =   0   'False
  845.       ForeColor       =   &H00000000&
  846.       Height          =   225
  847.       Index           =   23
  848.       Left            =   960
  849.       TabIndex        =   60
  850.       Top             =   1560
  851.       Width           =   375
  852.    End
  853.    Begin Label Mh3d1 
  854.       Alignment       =   2  'Center
  855.       BackColor       =   &H00C0C0C0&
  856.       Caption         =   "24"
  857.       FontBold        =   0   'False
  858.       FontItalic      =   0   'False
  859.       FontName        =   "MS Sans Serif"
  860.       FontSize        =   8.25
  861.       FontStrikethru  =   0   'False
  862.       FontUnderline   =   0   'False
  863.       ForeColor       =   &H00000000&
  864.       Height          =   225
  865.       Index           =   24
  866.       Left            =   1320
  867.       TabIndex        =   61
  868.       Top             =   1560
  869.       Width           =   375
  870.    End
  871.    Begin Label Mh3d1 
  872.       Alignment       =   2  'Center
  873.       BackColor       =   &H00C0C0C0&
  874.       Caption         =   "25"
  875.       FontBold        =   0   'False
  876.       FontItalic      =   0   'False
  877.       FontName        =   "MS Sans Serif"
  878.       FontSize        =   8.25
  879.       FontStrikethru  =   0   'False
  880.       FontUnderline   =   0   'False
  881.       ForeColor       =   &H00000000&
  882.       Height          =   225
  883.       Index           =   25
  884.       Left            =   1680
  885.       TabIndex        =   62
  886.       Top             =   1560
  887.       Width           =   375
  888.    End
  889.    Begin Label Mh3d1 
  890.       Alignment       =   2  'Center
  891.       BackColor       =   &H00C0C0C0&
  892.       Caption         =   "26"
  893.       FontBold        =   0   'False
  894.       FontItalic      =   0   'False
  895.       FontName        =   "MS Sans Serif"
  896.       FontSize        =   8.25
  897.       FontStrikethru  =   0   'False
  898.       FontUnderline   =   0   'False
  899.       ForeColor       =   &H00000000&
  900.       Height          =   225
  901.       Index           =   26
  902.       Left            =   2040
  903.       TabIndex        =   63
  904.       Top             =   1560
  905.       Width           =   375
  906.    End
  907.    Begin Label Mh3d1 
  908.       Alignment       =   2  'Center
  909.       BackColor       =   &H00C0C0C0&
  910.       Caption         =   "27"
  911.       FontBold        =   0   'False
  912.       FontItalic      =   0   'False
  913.       FontName        =   "MS Sans Serif"
  914.       FontSize        =   8.25
  915.       FontStrikethru  =   0   'False
  916.       FontUnderline   =   0   'False
  917.       ForeColor       =   &H00000000&
  918.       Height          =   225
  919.       Index           =   27
  920.       Left            =   2400
  921.       TabIndex        =   64
  922.       Top             =   1560
  923.       Width           =   375
  924.    End
  925.    Begin Label Mh3d1 
  926.       Alignment       =   2  'Center
  927.       BackColor       =   &H00C0C0C0&
  928.       Caption         =   "28"
  929.       FontBold        =   0   'False
  930.       FontItalic      =   0   'False
  931.       FontName        =   "MS Sans Serif"
  932.       FontSize        =   8.25
  933.       FontStrikethru  =   0   'False
  934.       FontUnderline   =   0   'False
  935.       ForeColor       =   &H00000000&
  936.       Height          =   225
  937.       Index           =   28
  938.       Left            =   240
  939.       TabIndex        =   65
  940.       Top             =   1815
  941.       Width           =   375
  942.    End
  943.    Begin Label Mh3d1 
  944.       Alignment       =   2  'Center
  945.       BackColor       =   &H00C0C0C0&
  946.       Caption         =   "29"
  947.       FontBold        =   0   'False
  948.       FontItalic      =   0   'False
  949.       FontName        =   "MS Sans Serif"
  950.       FontSize        =   8.25
  951.       FontStrikethru  =   0   'False
  952.       FontUnderline   =   0   'False
  953.       ForeColor       =   &H00000000&
  954.       Height          =   225
  955.       Index           =   29
  956.       Left            =   600
  957.       TabIndex        =   66
  958.       Top             =   1815
  959.       Width           =   375
  960.    End
  961.    Begin Label Mh3d1 
  962.       Alignment       =   2  'Center
  963.       BackColor       =   &H00C0C0C0&
  964.       Caption         =   "30"
  965.       FontBold        =   0   'False
  966.       FontItalic      =   0   'False
  967.       FontName        =   "MS Sans Serif"
  968.       FontSize        =   8.25
  969.       FontStrikethru  =   0   'False
  970.       FontUnderline   =   0   'False
  971.       ForeColor       =   &H00000000&
  972.       Height          =   225
  973.       Index           =   30
  974.       Left            =   960
  975.       TabIndex        =   67
  976.       Top             =   1815
  977.       Width           =   375
  978.    End
  979.    Begin Label Mh3d1 
  980.       Alignment       =   2  'Center
  981.       BackColor       =   &H00C0C0C0&
  982.       Caption         =   "31"
  983.       FontBold        =   0   'False
  984.       FontItalic      =   0   'False
  985.       FontName        =   "MS Sans Serif"
  986.       FontSize        =   8.25
  987.       FontStrikethru  =   0   'False
  988.       FontUnderline   =   0   'False
  989.       ForeColor       =   &H00000000&
  990.       Height          =   225
  991.       Index           =   31
  992.       Left            =   1320
  993.       TabIndex        =   68
  994.       Top             =   1815
  995.       Width           =   375
  996.    End
  997.    Begin Label Mh3d1 
  998.       Alignment       =   2  'Center
  999.       BackColor       =   &H00C0C0C0&
  1000.       Caption         =   "32"
  1001.       FontBold        =   0   'False
  1002.       FontItalic      =   0   'False
  1003.       FontName        =   "MS Sans Serif"
  1004.       FontSize        =   8.25
  1005.       FontStrikethru  =   0   'False
  1006.       FontUnderline   =   0   'False
  1007.       ForeColor       =   &H00000000&
  1008.       Height          =   225
  1009.       Index           =   32
  1010.       Left            =   1680
  1011.       TabIndex        =   69
  1012.       Top             =   1815
  1013.       Width           =   375
  1014.    End
  1015.    Begin Label Mh3d1 
  1016.       Alignment       =   2  'Center
  1017.       BackColor       =   &H00C0C0C0&
  1018.       Caption         =   "33"
  1019.       FontBold        =   0   'False
  1020.       FontItalic      =   0   'False
  1021.       FontName        =   "MS Sans Serif"
  1022.       FontSize        =   8.25
  1023.       FontStrikethru  =   0   'False
  1024.       FontUnderline   =   0   'False
  1025.       ForeColor       =   &H00000000&
  1026.       Height          =   225
  1027.       Index           =   33
  1028.       Left            =   2040
  1029.       TabIndex        =   17
  1030.       Top             =   1815
  1031.       Width           =   375
  1032.    End
  1033.    Begin Label Mh3d1 
  1034.       Alignment       =   2  'Center
  1035.       BackColor       =   &H00C0C0C0&
  1036.       Caption         =   "34"
  1037.       FontBold        =   0   'False
  1038.       FontItalic      =   0   'False
  1039.       FontName        =   "MS Sans Serif"
  1040.       FontSize        =   8.25
  1041.       FontStrikethru  =   0   'False
  1042.       FontUnderline   =   0   'False
  1043.       ForeColor       =   &H00000000&
  1044.       Height          =   225
  1045.       Index           =   34
  1046.       Left            =   2400
  1047.       TabIndex        =   18
  1048.       Top             =   1815
  1049.       Width           =   375
  1050.    End
  1051.    Begin Label Mh3d1 
  1052.       Alignment       =   2  'Center
  1053.       BackColor       =   &H00C0C0C0&
  1054.       Caption         =   "35"
  1055.       FontBold        =   0   'False
  1056.       FontItalic      =   0   'False
  1057.       FontName        =   "MS Sans Serif"
  1058.       FontSize        =   8.25
  1059.       FontStrikethru  =   0   'False
  1060.       FontUnderline   =   0   'False
  1061.       ForeColor       =   &H00000000&
  1062.       Height          =   225
  1063.       Index           =   35
  1064.       Left            =   240
  1065.       TabIndex        =   19
  1066.       Top             =   2055
  1067.       Width           =   375
  1068.    End
  1069.    Begin Label Mh3d1 
  1070.       Alignment       =   2  'Center
  1071.       BackColor       =   &H00C0C0C0&
  1072.       Caption         =   "36"
  1073.       FontBold        =   0   'False
  1074.       FontItalic      =   0   'False
  1075.       FontName        =   "MS Sans Serif"
  1076.       FontSize        =   8.25
  1077.       FontStrikethru  =   0   'False
  1078.       FontUnderline   =   0   'False
  1079.       ForeColor       =   &H00000000&
  1080.       Height          =   225
  1081.       Index           =   36
  1082.       Left            =   600
  1083.       TabIndex        =   20
  1084.       Top             =   2055
  1085.       Width           =   375
  1086.    End
  1087.    Begin Label Mh3d1 
  1088.       Alignment       =   2  'Center
  1089.       BackColor       =   &H00C0C0C0&
  1090.       Caption         =   " "
  1091.       FontBold        =   0   'False
  1092.       FontItalic      =   0   'False
  1093.       FontName        =   "MS Sans Serif"
  1094.       FontSize        =   8.25
  1095.       FontStrikethru  =   0   'False
  1096.       FontUnderline   =   0   'False
  1097.       ForeColor       =   &H00000000&
  1098.       Height          =   225
  1099.       Index           =   37
  1100.       Left            =   960
  1101.       TabIndex        =   21
  1102.       Top             =   2055
  1103.       Width           =   375
  1104.    End
  1105.    Begin Label Mh3d1 
  1106.       Alignment       =   2  'Center
  1107.       BackColor       =   &H00C0C0C0&
  1108.       Caption         =   " "
  1109.       FontBold        =   0   'False
  1110.       FontItalic      =   0   'False
  1111.       FontName        =   "MS Sans Serif"
  1112.       FontSize        =   8.25
  1113.       FontStrikethru  =   0   'False
  1114.       FontUnderline   =   0   'False
  1115.       ForeColor       =   &H00000000&
  1116.       Height          =   225
  1117.       Index           =   38
  1118.       Left            =   1320
  1119.       TabIndex        =   22
  1120.       Top             =   2055
  1121.       Width           =   375
  1122.    End
  1123.    Begin Label Mh3d1 
  1124.       Alignment       =   2  'Center
  1125.       BackColor       =   &H00C0C0C0&
  1126.       Caption         =   " "
  1127.       FontBold        =   0   'False
  1128.       FontItalic      =   0   'False
  1129.       FontName        =   "MS Sans Serif"
  1130.       FontSize        =   8.25
  1131.       FontStrikethru  =   0   'False
  1132.       FontUnderline   =   0   'False
  1133.       ForeColor       =   &H00000000&
  1134.       Height          =   225
  1135.       Index           =   39
  1136.       Left            =   1680
  1137.       TabIndex        =   23
  1138.       Top             =   2055
  1139.       Width           =   375
  1140.    End
  1141.    Begin Label Mh3d1 
  1142.       Alignment       =   2  'Center
  1143.       BackColor       =   &H00C0C0C0&
  1144.       Caption         =   " "
  1145.       FontBold        =   0   'False
  1146.       FontItalic      =   0   'False
  1147.       FontName        =   "MS Sans Serif"
  1148.       FontSize        =   8.25
  1149.       FontStrikethru  =   0   'False
  1150.       FontUnderline   =   0   'False
  1151.       ForeColor       =   &H00000000&
  1152.       Height          =   225
  1153.       Index           =   40
  1154.       Left            =   2040
  1155.       TabIndex        =   31
  1156.       Top             =   2055
  1157.       Width           =   375
  1158.    End
  1159.    Begin Label Mh3d1 
  1160.       Alignment       =   2  'Center
  1161.       BackColor       =   &H00C0C0C0&
  1162.       Caption         =   " "
  1163.       FontBold        =   0   'False
  1164.       FontItalic      =   0   'False
  1165.       FontName        =   "MS Sans Serif"
  1166.       FontSize        =   8.25
  1167.       FontStrikethru  =   0   'False
  1168.       FontUnderline   =   0   'False
  1169.       ForeColor       =   &H00000000&
  1170.       Height          =   225
  1171.       Index           =   41
  1172.       Left            =   2400
  1173.       TabIndex        =   32
  1174.       Top             =   2055
  1175.       Width           =   375
  1176.    End
  1177.    Begin Label Yr 
  1178.       Alignment       =   2  'Center
  1179.       AutoSize        =   -1  'True
  1180.       BackColor       =   &H00C0C0C0&
  1181.       BackStyle       =   0  'Transparent
  1182.       Caption         =   "1991"
  1183.       ForeColor       =   &H00000000&
  1184.       Height          =   195
  1185.       Left            =   1425
  1186.       TabIndex        =   3
  1187.       Tag             =   "Stuck"
  1188.       Top             =   300
  1189.       Width           =   450
  1190.    End
  1191.    Begin Label Mnth 
  1192.       Caption         =   "Mnth"
  1193.       Height          =   435
  1194.       Left            =   3630
  1195.       TabIndex        =   34
  1196.       Top             =   720
  1197.       Width           =   1815
  1198.    End
  1199.    Begin Label TextMonth 
  1200.       Alignment       =   2  'Center
  1201.       AutoSize        =   -1  'True
  1202.       BackColor       =   &H00C0C0C0&
  1203.       BackStyle       =   0  'Transparent
  1204.       Caption         =   "September"
  1205.       FontBold        =   -1  'True
  1206.       FontItalic      =   0   'False
  1207.       FontName        =   "MS Sans Serif"
  1208.       FontSize        =   9.75
  1209.       FontStrikethru  =   0   'False
  1210.       FontUnderline   =   0   'False
  1211.       ForeColor       =   &H00000000&
  1212.       Height          =   240
  1213.       Left            =   1065
  1214.       TabIndex        =   2
  1215.       Tag             =   "Stuck"
  1216.       Top             =   75
  1217.       Width           =   1170
  1218.    End
  1219. Option Explicit
  1220. Dim DaysInMonth(13) As Integer
  1221. Dim TempfColor As Long
  1222. Dim TempbColor As Long
  1223. Dim SavedCallerDateField As Long
  1224. Dim gNocalc As Integer
  1225. Dim DayToSelect As Integer
  1226. Dim Todayed As Integer
  1227. Dim tcLoaded As Integer
  1228. Dim MouseIsDown As Integer
  1229. Dim SavedScaleMode As Integer
  1230. Dim MStartX As Integer
  1231. Dim MStartY As Integer
  1232. Dim LastClick As Integer
  1233. Dim LastClickDate As Integer
  1234. Sub Command1_Click ()
  1235.     ToToday
  1236.     ConvertDates
  1237. End Sub
  1238. Sub Command2_Click (Index As Integer)
  1239.      If Index = 0 Then
  1240.         CallerDateField = DateSerial(ValTrim((Yr.Caption)), ValTrim((Calendar.MonthValue.Text)), ValTrim((Mh3d1(LastClick%).Caption)))
  1241.      'Else
  1242.      '   CallerDateField = SavedCallerDateField
  1243.      End If
  1244.      LastDateField = CallerDateField
  1245.      tcLoaded = False
  1246.      Unload Calendar
  1247.      'Calendar.Hide
  1248. End Sub
  1249. Sub Command3_Click (Index As Integer)
  1250. Todayed = True
  1251. Calendar.MonthScroll.Value = Index + 1
  1252. Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1253. 'ConvertDates
  1254. End Sub
  1255. Sub ConvertDates ()
  1256. Dim YearC%, MonthC%
  1257. Dim DateToCalc#
  1258. Dim I%, J%, K%, DayNum%, M%
  1259.     Screen.MousePointer = 11
  1260.     DaysInMonth(0) = 0
  1261.     DaysInMonth(1) = 31 'JAN
  1262.     DaysInMonth(2) = 28 'FEB
  1263.     DaysInMonth(3) = 31 'MAR
  1264.     DaysInMonth(4) = 30 'APR
  1265.     DaysInMonth(5) = 31 'MAY
  1266.     DaysInMonth(6) = 30 'JUN
  1267.     DaysInMonth(7) = 31 'JUL
  1268.     DaysInMonth(8) = 31 'AUG
  1269.     DaysInMonth(9) = 30 'SEP
  1270.     DaysInMonth(10) = 31 'OCT
  1271.     DaysInMonth(11) = 30 'NOV
  1272.     DaysInMonth(12) = 31 'DEC
  1273.     YearC% = ValTrim((Calendar.Yr.Caption))
  1274.     MonthC% = ValTrim((Calendar.Mnth.Caption))
  1275.     Calendar.MonthValue.Text = Str$(MonthC%)
  1276.     If YearC% Mod 400 = 0 Then
  1277.         DaysInMonth(2) = 29
  1278.     ElseIf YearC% Mod 100 = 0 Then
  1279.         DaysInMonth(2) = 28
  1280.     ElseIf YearC% Mod 4 = 0 Then
  1281.         DaysInMonth(2) = 29
  1282.     Else
  1283.         DaysInMonth(2) = 28
  1284.     End If
  1285.     DateToCalc# = DateSerial(ValTrim((Calendar.Yr.Caption)), ValTrim((Calendar.Mnth.Caption)), 1)
  1286.     TextMonth.Caption = TransMonth2$(ValTrim((Calendar.Mnth.Caption)))
  1287.     For I% = 0 To 41
  1288.         Mh3d1(I%).Caption = ""
  1289.         Mh3d1(I%).Enabled = False
  1290.     Next I%
  1291.     DayNum% = Weekday(DateToCalc#)
  1292.     J% = 1
  1293.     I% = 0
  1294.     K% = DayNum% - 1
  1295.     M% = 0
  1296.     For I% = 1 To DaysInMonth(MonthC%)
  1297.         If DayToSelect = J% And Todayed Then
  1298.             Mh3d1(LastClick).BackColor = TempbColor
  1299.             Mh3d1(LastClick).ForeColor = TempfColor
  1300.             LastClick% = K%
  1301.             Mh3d1(K%).BackColor = TempfColor
  1302.             Mh3d1(K%).ForeColor = TempbColor
  1303.             Mh3d1_Click (K%)
  1304.             LastClickDate = J%
  1305.             'Exit For
  1306.         ElseIf LastClickDate = J% Then
  1307.             Mh3d1(LastClick).BackColor = TempbColor
  1308.             Mh3d1(LastClick).ForeColor = TempfColor
  1309.             LastClick% = K%
  1310.             Mh3d1(K%).BackColor = TempfColor
  1311.             Mh3d1(K%).ForeColor = TempbColor
  1312.         End If
  1313.         
  1314.         If LastClickDate > DaysInMonth(MonthC%) Or DayToSelect > DaysInMonth(MonthC%) Then
  1315.             Mh3d1(LastClick).BackColor = TempbColor
  1316.             Mh3d1(LastClick).ForeColor = TempfColor
  1317.             LastClick% = K%
  1318.             Mh3d1(K%).BackColor = TempfColor
  1319.             Mh3d1(K%).ForeColor = TempbColor
  1320.         End If
  1321.         
  1322.         Mh3d1(K%).Caption = Trim$(Str$(J%))
  1323.         Mh3d1(K%).Enabled = True
  1324.         J% = J% + 1
  1325.         K% = K% + 1
  1326.     Next I%
  1327.     Screen.MousePointer = 0
  1328.      
  1329. End Sub
  1330. Sub Form_Load ()
  1331.     Dim bLeft%, bTop%, bright%, bbottom%, Addl%
  1332.     Dim SavedScaleMode%
  1333.     Dim I%
  1334.     Dim OldBottom%, NewBottom%, ChangedTop%
  1335.     OldBottom% = Yr.Top + Yr.Height
  1336.     TextMonth.FontName = AllTheTime.FontName
  1337.     TextMonth.ForeColor = AllTheTime.ForeColor
  1338.     TextMonth.FontBold = AllTheTime.FontBold
  1339.     TextMonth.FontSize = AllTheTime.FontSize
  1340.     Yr.FontName = AllTheTime.FontName
  1341.     Yr.ForeColor = AllTheTime.ForeColor
  1342.     Yr.FontBold = AllTheTime.FontBold
  1343.     Yr.FontSize = AllTheTime.FontSize
  1344.     Yr.Top = TextMonth.Top + TextMonth.Height '- 2
  1345.     NewBottom% = Yr.Top + Yr.Height
  1346.     ChangedTop% = NewBottom% - OldBottom%
  1347.     For I% = 0 To Controls.Count - 1
  1348.        If Controls(I%).Tag <> "Stuck" Then
  1349.           Controls(I%).Top = Controls(I%).Top + ChangedTop%
  1350.        End If
  1351.     Next I%
  1352.     Me.Height = Me.Height + ChangedTop% * GTwpsPerPxly
  1353.     For I% = 7 To 13
  1354.        Label2(I%).FontName = AllTheTime.FontName
  1355.        'Yr.ForeColor = AllTheTime.ForeColor
  1356.        'Yr.FontBold = AllTheTime.FontBold
  1357.        'Yr.FontSize = AllTheTime.FontSize
  1358.        'Label2(I%).Top = Yr.Top + Yr.Height + 3
  1359.        Label2(I%).Top = YearScroll.Top + 2
  1360.     Next I%
  1361.     Left = (Screen.Width - Width) / 2
  1362.     Top = (Screen.Height - Height) / 2
  1363.     AutoRedraw = True
  1364.     picture = LoadPicture("")
  1365.     bLeft = MonthScroll.Left + 1
  1366.     bright = YearScroll.Left + YearScroll.Width - 1
  1367.     bbottom = MonthScroll.Top + MonthScroll.Height - 1
  1368.     bTop = YearScroll.Top + 1
  1369.          'top
  1370.     Line (bLeft - 1 - Addl%, bTop - 1 - Addl%)-(bright + 1 + Addl%, bTop - 1 - Addl%), 0
  1371.     Line (bLeft - 2 - Addl%, bTop - 2 - Addl%)-(bright + 2 + Addl%, bTop - 2 - Addl%), &H808080
  1372.          'left
  1373.     Line (bLeft - 1 - Addl%, bTop - 1 - Addl%)-(bLeft - 1 - Addl%, bbottom + 1 + Addl%), 0
  1374.     Line (bLeft - 2 - Addl%, bTop - 2 - Addl%)-(bLeft - 2 - Addl%, bbottom + 2 + Addl%), &H808080
  1375.          'bottom
  1376.     Line (bLeft - 1 - Addl%, bbottom + 0 + Addl%)-(bright + 1 + Addl%, bbottom + 0 + Addl%), 0
  1377.     Line (bLeft - 2 - Addl%, bbottom + 1 + Addl%)-(bright + 2 + Addl%, bbottom + 1 + Addl%), &HFFFFFF
  1378.          'right
  1379.     Line (bright + 0 + Addl%, bTop - 1 - Addl%)-(bright + 0 + Addl%, bbottom + 1 + Addl%), 0'&HC0C0C0
  1380.     Line (bright + 1 + Addl%, bTop - 2 - Addl%)-(bright + 1 + Addl%, bbottom + 2 + Addl%), &HFFFFFF
  1381.     TempbColor = Mh3d1(0).BackColor
  1382.     TempfColor = Mh3d1(0).ForeColor
  1383.     SavedScaleMode = ScaleMode
  1384.     ScaleMode = 1
  1385.     DrawShadow Me
  1386.     ScaleMode = SavedScaleMode
  1387.     AutoRedraw = False
  1388.     Screen.MousePointer = 0
  1389.     ScaleMode = 1
  1390. End Sub
  1391. Sub Form_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1392. SavedScaleMode = ScaleMode
  1393. ScaleMode = 1
  1394. MStartX = x
  1395. MStartY = Y
  1396. MouseIsDown = True
  1397. End Sub
  1398. Sub Form_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1399. If MouseIsDown Then
  1400.    Calendar.Top = Calendar.Top + (Y - MStartY)
  1401.    Calendar.Left = Calendar.Left + (x - MStartX)
  1402. End If
  1403. End Sub
  1404. Sub Form_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1405. MouseIsDown = False
  1406. ScaleMode = SavedScaleMode
  1407. End Sub
  1408. Sub Form_Paint ()
  1409. Dim I%
  1410.     If tcLoaded Then Exit Sub
  1411.     SavedCallerDateField = CallerDateField
  1412.     Command2(0).SetFocus
  1413.     For I% = 0 To 41
  1414.         Mh3d1(I%).ForeColor = 0
  1415.         Mh3d1(I%).BackColor = &HC0C0C0
  1416.     Next I%
  1417.     'Beep
  1418.     Screen.MousePointer = 11
  1419.     LastClick = 1
  1420.     LastClickDate = 1
  1421.     'Refresh
  1422.     tcLoaded = True
  1423.     ToADay (CallerDateField)
  1424.     ConvertDates
  1425.     'Calendar.Hide
  1426.     Screen.MousePointer = 0
  1427. End Sub
  1428. Sub Mh3d1_Click (Index As Integer)
  1429. End Sub
  1430. Sub Mh3d1_DblClick (Index As Integer)
  1431.     'Call Mh3d1_Click(Index)
  1432.     ' tcLoaded = False
  1433.     'Unload Me
  1434. End Sub
  1435. Sub Mh3d1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
  1436.      Mh3d1(LastClick).BackColor = TempbColor
  1437.      Mh3d1(LastClick).ForeColor = TempfColor
  1438.      
  1439.      Mh3d1(Index).BackColor = TempfColor
  1440.      Mh3d1(Index).ForeColor = TempbColor
  1441.      Todayed = False
  1442.      LastClick% = Index
  1443.      LastClickDate = ValTrim((Mh3d1(Index).Caption))
  1444.      CallerDateField = DateSerial(ValTrim((Yr.Caption)), ValTrim((Calendar.MonthValue.Text)), ValTrim((Mh3d1(Index).Caption)))
  1445. End Sub
  1446. Sub MonthScroll_Change ()
  1447.     If MonthScroll.Value = 13 Then
  1448.         gNocalc = True
  1449.         MonthScroll.Value = 1
  1450.         YearScroll.Value = YearScroll.Value + 1
  1451.         gNocalc = False
  1452.     End If
  1453.     If MonthScroll.Value = 0 Then
  1454.         gNocalc = True
  1455.         MonthScroll.Value = 12
  1456.         YearScroll.Value = YearScroll.Value - 1
  1457.         gNocalc = False
  1458.     End If
  1459.     Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1460.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1461.     If Not gNocalc Then ConvertDates
  1462. End Sub
  1463. Sub MonthScroll_Change1 (PartBar As Integer)
  1464.     MsgBox "Monthscroll Fired"
  1465.     If PartBar = 5 Or PartBar = 7 Then GoTo bypass2
  1466.     If MonthScroll.Value = 13 Then
  1467.         MonthScroll.Value = 1
  1468.         YearScroll.Value = YearScroll.Value + 1
  1469.     End If
  1470.     If MonthScroll.Value = 0 Then
  1471.         MonthScroll.Value = 12
  1472.         YearScroll.Value = YearScroll.Value - 1
  1473.     End If
  1474.     Calendar.Mnth.Caption = Str$(MonthScroll.Value)
  1475.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1476.     ConvertDates
  1477. bypass2:
  1478. End Sub
  1479. Sub MonthScroll_Scroll ()
  1480. TextMonth.Caption = TransMonth2$((MonthScroll.Value))
  1481. End Sub
  1482. Sub Picture1_Click ()
  1483. Screen.MousePointer = 11
  1484. Calabout.Show Modal
  1485. Screen.MousePointer = 0
  1486. End Sub
  1487. Sub TextMonth_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1488. Call Form_MouseDown(Button, Shift, x, Y)
  1489. End Sub
  1490. Sub TextMonth_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1491. Call Form_MouseMove(Button, Shift, x, Y)
  1492. End Sub
  1493. Sub TextMonth_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1494. Call Form_MouseUp(Button, Shift, x, Y)
  1495. End Sub
  1496. Sub ToADay (D As Double)
  1497. Dim CurrentMonth%, CurrentYear%
  1498.     CurrentMonth = Month(D)
  1499.     CurrentYear = Year(D)
  1500.     Calendar.Yr.Caption = Trim$(Str$(CurrentYear))
  1501.     Calendar.Mnth.Caption = Str$(CurrentMonth)
  1502.     TextMonth.Caption = TransMonth2$(CurrentMonth)
  1503.     gNocalc = True
  1504.     Calendar.YearScroll.Value = Year(D)
  1505.     gNocalc = False
  1506.     Calendar.MonthScroll.Value = Month(D)
  1507.     DayToSelect = Day(D)
  1508.     Todayed = True
  1509. End Sub
  1510. Sub ToToday ()
  1511.     ToADay (Now)
  1512.     Todayed = True
  1513. End Sub
  1514. Function TransMonth$ (M As Integer)
  1515. TransMonth$ = RTrim$(Mid$("JanFebMarAprMayJunJulAugSepOctNovDec", (M - 1) * 3 + 1, 3))
  1516. End Function
  1517. Function TransMonth2$ (M As Integer)
  1518. If (M < 1) Then
  1519.    M = 1
  1520.    If (M > 12) Then
  1521.       M = 12
  1522.    End If
  1523. End If
  1524. TransMonth2$ = RTrim$(Mid$("January  February March    April    May      June     July     August   SeptemberOctober  November December ", (M - 1) * 9 + 1, 9))
  1525. End Function
  1526. Function ValTrim (x$) As Integer
  1527. Dim S$
  1528. S$ = Trim$(x$)
  1529. ValTrim = Val(S$)
  1530. End Function
  1531. Sub YearScroll_Change ()
  1532.     Calendar.Yr.Caption = Trim$(Str$(YearScroll.Value))
  1533.     If Not gNocalc Then ConvertDates
  1534. End Sub
  1535. Sub YearScroll_Scroll ()
  1536.     Calendar.Yr.Caption = Trim(Str$(YearScroll.Value))
  1537. End Sub
  1538. Sub Yr_MouseDown (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1539. Call Form_MouseDown(Button, Shift, x, Y)
  1540. End Sub
  1541. Sub Yr_MouseMove (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1542. Call Form_MouseMove(Button, Shift, x, Y)
  1543. End Sub
  1544. Sub Yr_MouseUp (Button As Integer, Shift As Integer, x As Single, Y As Single)
  1545. Call Form_MouseUp(Button, Shift, x, Y)
  1546. End Sub
  1547.