Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dtentr / dtentry.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1995-01-08 | 91.6 KB | 2,594 lines

VERSION 2.00 Begin Form frmDateTime BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Date & Time Speed Entry" ClientHeight = 6090 ClientLeft = 240 ClientTop = 600 ClientWidth = 9015 Height = 6495 Icon = DTENTRY.FRX:0000 Left = 180 LinkTopic = "frmDateTime" MaxButton = 0 'False ScaleHeight = 6090 ScaleWidth = 9015 Top = 255 Width = 9135 Begin Timer tmrCurTime Interval = 1000 Left = 6000 Top = 6165 End Begin SSPanel pnlMisc BorderWidth = 2 ForeColor = &H00800000& Height = 6090 Index = 14 Left = 0 TabIndex = 93 Top = 0 Width = 3285 Begin SSPanel pnlMisc BorderWidth = 2 Caption = "Reset to Current Date..." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 18 Left = 645 TabIndex = 113 Top = 555 Width = 1965 End Begin SSCommand cmdResetDate BevelWidth = 1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 375 Left = 645 RoundedCorners = 0 'False TabIndex = 2 Top = 810 Width = 1965 End Begin SSPanel pnlDateEntered BevelInner = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 435 Left = 75 TabIndex = 108 Top = 60 Width = 3150 End Begin SSPanel pnlMisc Alignment = 0 'Left Justify - TOP BorderWidth = 2 Caption = "Select month from top box, day of month from the above box and each digit of the year from the box at left. Use the supplied speed buttons to reset a given area to today's date." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 2400 Index = 15 Left = 1995 TabIndex = 107 Top = 3600 Width = 1200 End Begin SSPanel pnlMisc BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1650 Index = 4 Left = 75 TabIndex = 104 Top = 1950 Width = 3120 Begin SSPanel pnlMisc BevelOuter = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 7 Left = 45 TabIndex = 106 Top = 360 Width = 600 Begin SSCommand cmdResetDay BevelWidth = 1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Left = 15 RoundedCorners = 0 'False TabIndex = 47 Top = 15 Width = 570 End End Begin SSOption optDay Caption = "31" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 30 Left = 2505 TabIndex = 46 Top = 240 Width = 480 End Begin SSOption optDay Caption = "30" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 29 Left = 2505 TabIndex = 45 Top = 45 Width = 480 End Begin SSOption optDay Caption = "29" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 28 Left = 1905 TabIndex = 44 Top = 1410 Width = 480 End Begin SSOption optDay Caption = "28" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 27 Left = 1905 TabIndex = 43 Top = 1215 Width = 480 End Begin SSOption optDay Caption = "27" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 26 Left = 1905 TabIndex = 42 Top = 1020 Width = 480 End Begin SSOption optDay Caption = "26" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 25 Left = 1905 TabIndex = 41 Top = 825 Width = 480 End Begin SSOption optDay Caption = "25" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 24 Left = 1905 TabIndex = 40 Top = 630 Width = 480 End Begin SSOption optDay Caption = "24" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 23 Left = 1905 TabIndex = 39 Top = 435 Width = 480 End Begin SSOption optDay Caption = "23" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 22 Left = 1905 TabIndex = 38 Top = 240 Width = 480 End Begin SSOption optDay Caption = "22" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 21 Left = 1905 TabIndex = 37 Top = 45 Width = 480 End Begin SSOption optDay Caption = "21" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 20 Left = 1290 TabIndex = 36 Top = 1410 Width = 480 End Begin SSOption optDay Caption = "20" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 19 Left = 1290 TabIndex = 35 Top = 1215 Width = 480 End Begin SSOption optDay Caption = "19" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 18 Left = 1290 TabIndex = 34 Top = 1020 Width = 480 End Begin SSOption optDay Caption = "18" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 17 Left = 1290 TabIndex = 33 Top = 825 Width = 480 End Begin SSOption optDay Caption = "17" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 16 Left = 1290 TabIndex = 32 Top = 630 Width = 480 End Begin SSOption optDay Caption = "16" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 15 Left = 1290 TabIndex = 31 Top = 435 Width = 480 End Begin SSOption optDay Caption = "15" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 14 Left = 1290 TabIndex = 30 Top = 240 Width = 480 End Begin SSOption optDay Caption = "14" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 13 Left = 1290 TabIndex = 29 Top = 45 Width = 480 End Begin SSOption optDay Caption = "13" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 12 Left = 705 TabIndex = 28 Top = 1410 Width = 480 End Begin SSOption optDay Caption = "12" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 11 Left = 705 TabIndex = 27 Top = 1215 Width = 480 End Begin SSOption optDay Caption = "11" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 10 Left = 705 TabIndex = 26 Top = 1020 Width = 480 End Begin SSOption optDay Caption = "10" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 705 TabIndex = 25 Top = 825 Width = 480 End Begin SSOption optDay Caption = "9" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 705 TabIndex = 24 Top = 630 Width = 480 End Begin SSOption optDay Caption = "8" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 705 TabIndex = 23 Top = 435 Width = 480 End Begin SSOption optDay Caption = "7" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 705 TabIndex = 22 Top = 240 Width = 480 End Begin SSOption optDay Caption = "6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 705 TabIndex = 21 Top = 45 Width = 480 End Begin SSOption optDay Caption = "5" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 75 TabIndex = 20 Top = 1410 Width = 480 End Begin SSOption optDay Caption = "4" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 75 TabIndex = 19 Top = 1215 Width = 480 End Begin SSOption optDay Caption = "3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 75 TabIndex = 18 Top = 1020 Width = 480 End Begin SSOption optDay Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 75 TabIndex = 17 Top = 825 Width = 480 End Begin SSOption optDay Caption = "1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 75 TabIndex = 16 Top = 630 Width = 480 End Begin SSPanel pnlDay BevelOuter = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 45 TabIndex = 105 Top = 45 Width = 600 End End Begin SSPanel pnlMisc BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2400 Index = 2 Left = 75 TabIndex = 97 Top = 3600 Width = 1920 Begin SSPanel pnlYear BevelOuter = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 45 TabIndex = 103 Top = 45 Width = 690 End Begin SSPanel pnlMisc BevelOuter = 0 'None BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2025 Index = 6 Left = 45 TabIndex = 102 Top = 300 Width = 435 Begin SSOption optThousands Caption = "0" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 30 TabIndex = 57 Top = 1785 Width = 390 End Begin SSOption optThousands Caption = "9" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 30 TabIndex = 56 Top = 1590 Width = 390 End Begin SSOption optThousands Caption = "8" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 30 TabIndex = 55 Top = 1395 Width = 390 End Begin SSOption optThousands Caption = "7" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 30 TabIndex = 54 Top = 1200 Width = 390 End Begin SSOption optThousands Caption = "6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 30 TabIndex = 53 Top = 1005 Width = 390 End Begin SSOption optThousands Caption = "5" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 30 TabIndex = 52 Top = 810 Width = 390 End Begin SSOption optThousands Caption = "4" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 30 TabIndex = 51 Top = 615 Width = 390 End Begin SSOption optThousands Caption = "3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 30 TabIndex = 50 Top = 420 Width = 390 End Begin SSOption optThousands Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 30 TabIndex = 49 Top = 225 Width = 390 End Begin SSOption optThousands Caption = "1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 30 TabIndex = 48 Top = 30 Width = 390 End End Begin SSPanel pnlMisc BevelOuter = 0 'None BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2025 Index = 8 Left = 510 TabIndex = 101 Top = 300 Width = 435 Begin SSOption optHundreds Caption = "1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 30 TabIndex = 58 Top = 30 Width = 390 End Begin SSOption optHundreds Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 30 TabIndex = 59 Top = 225 Width = 390 End Begin SSOption optHundreds Caption = "3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 30 TabIndex = 60 Top = 420 Width = 390 End Begin SSOption optHundreds Caption = "4" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 30 TabIndex = 61 Top = 615 Width = 390 End Begin SSOption optHundreds Caption = "5" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 30 TabIndex = 62 Top = 810 Width = 390 End Begin SSOption optHundreds Caption = "6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 30 TabIndex = 63 Top = 1005 Width = 390 End Begin SSOption optHundreds Caption = "7" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 30 TabIndex = 64 Top = 1200 Width = 390 End Begin SSOption optHundreds Caption = "8" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 30 TabIndex = 65 Top = 1395 Width = 390 End Begin SSOption optHundreds Caption = "9" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 30 TabIndex = 66 Top = 1590 Width = 390 End Begin SSOption optHundreds Caption = "0" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 15 TabIndex = 67 Top = 1785 Width = 390 End End Begin SSPanel pnlMisc BevelOuter = 0 'None BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2025 Index = 9 Left = 975 TabIndex = 100 Top = 300 Width = 435 Begin SSOption optTens Caption = "1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 30 TabIndex = 68 Top = 30 Width = 390 End Begin SSOption optTens Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 30 TabIndex = 69 Top = 225 Width = 390 End Begin SSOption optTens Caption = "3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 30 TabIndex = 70 Top = 420 Width = 390 End Begin SSOption optTens Caption = "4" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 30 TabIndex = 71 Top = 615 Width = 390 End Begin SSOption optTens Caption = "5" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 30 TabIndex = 72 Top = 810 Width = 390 End Begin SSOption optTens Caption = "6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 30 TabIndex = 73 Top = 1005 Width = 390 End Begin SSOption optTens Caption = "7" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 30 TabIndex = 74 Top = 1200 Width = 390 End Begin SSOption optTens Caption = "8" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 30 TabIndex = 75 Top = 1395 Width = 390 End Begin SSOption optTens Caption = "9" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 30 TabIndex = 76 Top = 1590 Width = 390 End Begin SSOption optTens Caption = "0" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 30 TabIndex = 77 Top = 1785 Width = 390 End End Begin SSPanel pnlMisc BevelOuter = 0 'None BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 2025 Index = 10 Left = 1440 TabIndex = 99 Top = 300 Width = 435 Begin SSOption optOnes Caption = "1" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 30 TabIndex = 78 Top = 30 Width = 390 End Begin SSOption optOnes Caption = "2" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 30 TabIndex = 79 Top = 225 Width = 390 End Begin SSOption optOnes Caption = "3" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 30 TabIndex = 80 Top = 420 Width = 390 End Begin SSOption optOnes Caption = "4" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 30 TabIndex = 81 Top = 615 Width = 390 End Begin SSOption optOnes Caption = "5" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 30 TabIndex = 82 Top = 810 Width = 390 End Begin SSOption optOnes Caption = "6" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 30 TabIndex = 83 Top = 1005 Width = 390 End Begin SSOption optOnes Caption = "7" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 30 TabIndex = 84 Top = 1200 Width = 390 End Begin SSOption optOnes Caption = "8" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 30 TabIndex = 85 Top = 1395 Width = 390 End Begin SSOption optOnes Caption = "9" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 30 TabIndex = 86 Top = 1590 Width = 390 End Begin SSOption optOnes Caption = "0" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 30 TabIndex = 87 Top = 1785 Width = 390 End End Begin SSPanel pnlMisc BevelOuter = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 11 Left = 765 TabIndex = 98 Top = 45 Width = 1110 Begin SSCommand cmdResetYear BevelWidth = 1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Left = 15 RoundedCorners = 0 'False TabIndex = 88 Top = 15 Width = 1080 End End End Begin SSPanel pnlMisc BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 690 Index = 1 Left = 75 TabIndex = 94 Top = 1260 Width = 3120 Begin SSPanel pnlMisc BevelOuter = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 12 Left = 45 TabIndex = 96 Top = 360 Width = 585 Begin SSCommand cmdResetMonth BevelWidth = 1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 225 Left = 15 RoundedCorners = 0 'False TabIndex = 15 Top = 15 Width = 555 End End Begin SSOption optMonth Caption = "Jan" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 0 Left = 675 TabIndex = 3 Top = 45 Width = 585 End Begin SSOption optMonth Caption = "Feb" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 1 Left = 675 TabIndex = 4 Top = 240 Width = 585 End Begin SSOption optMonth Caption = "Mar" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 2 Left = 675 TabIndex = 5 Top = 435 Width = 585 End Begin SSOption optMonth Caption = "Apr" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 3 Left = 1290 TabIndex = 6 Top = 45 Width = 585 End Begin SSOption optMonth Caption = "May" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 4 Left = 1290 TabIndex = 7 Top = 240 Width = 585 End Begin SSOption optMonth Caption = "Jun" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 5 Left = 1290 TabIndex = 8 Top = 435 Width = 585 End Begin SSOption optMonth Caption = "Jul" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 6 Left = 1905 TabIndex = 9 Top = 45 Width = 585 End Begin SSOption optMonth Caption = "Aug" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 7 Left = 1905 TabIndex = 10 Top = 240 Width = 585 End Begin SSOption optMonth Caption = "Sep" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 8 Left = 1905 TabIndex = 11 Top = 435 Width = 585 End Begin SSOption optMonth Caption = "Oct" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 9 Left = 2505 TabIndex = 12 Top = 45 Width = 585 End Begin SSOption optMonth Caption = "Nov" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 10 Left = 2505 TabIndex = 13 Top = 240 Width = 585 End Begin SSOption optMonth Caption = "Dec" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 195 Index = 11 Left = 2505 TabIndex = 14 Top = 435 Width = 585 End Begin SSPanel pnlMonth BevelOuter = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Left = 45 TabIndex = 95 Top = 45 Width = 585 End End End Begin SSPanel pnlMisc Font3D = 3 'Inset w/light shading Height = 6090 Index = 0 Left = 3285 RoundedCorners = 0 'False TabIndex = 92 Top = 0 Width = 5730 Begin SSPanel pnlMisc BorderWidth = 2 Caption = "Reset to Current Time..." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 17 Left = 1890 TabIndex = 112 Top = 1830 Width = 1965 End Begin SSCommand cmdResetTime BevelWidth = 1 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000000& Height = 375 Left = 1890 RoundedCorners = 0 'False TabIndex = 91 Top = 2085 Width = 1965 End Begin SSPanel pnlMisc Alignment = 0 'Left Justify - TOP BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 1860 Index = 16 Left = 1365 TabIndex = 110 Top = 2655 Width = 2970 Begin Label lblMisc BackColor = &H00C0C0C0& Caption = "Select the time by clicking on the desired large inner HOUR number and small outer MINUTE number. Indicate the appropriate time of day by selecting either AM or PM. Use the speed button displaying the current time to reset buttons to the current time. When satisfied with this screen click on the OK button. Cancel discards all changes." FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 1800 Left = 45 TabIndex = 111 Top = 30 Width = 2865 End End Begin SSPanel pnlTimeEntered BevelInner = 1 'Inset BorderWidth = 2 FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 435 Left = 60 TabIndex = 109 Top = 60 Width = 5610 End Begin SSOption optAMPM Alignment = 1 'Right Justify Caption = "&AM" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00000080& Height = 345 Index = 0 Left = 300 TabIndex = 89 Top = 720 Value = -1 'True Width = 570 End Begin SSOption optAMPM Caption = "&PM" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 345 Index = 1 Left = 4935 TabIndex = 90 TabStop = 0 'False Top = 720 Width = 540 End Begin SSCommand cmdOK BevelWidth = 1 Caption = "&OK" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 375 Left = 4680 RoundedCorners = 0 'False TabIndex = 0 Top = 5610 Width = 930 End Begin SSCommand cmdCancel BevelWidth = 1 Caption = "&Cancel" FontBold = 0 'False FontItalic = 0 'False FontName = "MS Sans Serif" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00800000& Height = 375 Left = 150 RoundedCorners = 0 'False TabIndex = 1 Top = 5580 Width = 930 End Begin Image imgMinute Height = 225 Index = 0 Left = 2760 Top = 675 Width = 225 End Begin Image imgMinute Height = 225 Index = 1 Left = 3015 Top = 690 Width = 225 End Begin Image imgMinute Height = 225 Index = 2 Left = 3270 Top = 720 Width = 225 End Begin Image imgMinute Height = 225 Index = 3 Left = 3525 Top = 780 Width = 225 End Begin Image imgMinute Height = 225 Index = 4 Left = 3780 Top = 870 Width = 225 End Begin Image imgMinute Height = 225 Index = 5 Left = 4035 Top = 990 Width = 225 End Begin Image imgMinute Height = 225 Index = 6 Left = 4260 Top = 1140 Width = 225 End Begin Image imgMinute Height = 225 Index = 7 Left = 4485 Top = 1290 Width = 225 End Begin Image imgMinute Height = 225 Index = 8 Left = 4680 Top = 1485 Width = 225 End Begin Image imgMinute Height = 225 Index = 9 Left = 4860 Top = 1680 Width = 225 End Begin Image imgMinute Height = 225 Index = 10 Left = 5025 Top = 1905 Width = 225 End Begin Image imgMinute Height = 225 Index = 11 Left = 5145 Top = 2160 Width = 225 End Begin Image imgMinute Height = 225 Index = 12 Left = 5235 Top = 2415 Width = 225 End Begin Image imgMinute Height = 225 Index = 13 Left = 5310 Top = 2685 Width = 225 End Begin Image imgMinute Height = 225 Index = 14 Left = 5340 Top = 2955 Width = 225 End Begin Image imgMinute Height = 225 Index = 15 Left = 5355 Top = 3225 Width = 225 End Begin Image imgMinute Height = 225 Index = 16 Left = 5340 Top = 3495 Width = 225 End Begin Image imgMinute Height = 225 Index = 17 Left = 5310 Top = 3765 Width = 225 End Begin Image imgMinute Height = 225 Index = 18 Left = 5235 Top = 4035 Width = 225 End Begin Image imgMinute Height = 225 Index = 19 Left = 5145 Top = 4290 Width = 225 End Begin Image imgMinute Height = 225 Index = 20 Left = 5025 Top = 4545 Width = 225 End Begin Image imgMinute Height = 225 Index = 21 Left = 4860 Top = 4770 Width = 225 End Begin Image imgMinute Height = 225 Index = 22 Left = 4680 Top = 4965 Width = 225 End Begin Image imgMinute Height = 225 Index = 23 Left = 4485 Top = 5160 Width = 225 End Begin Image imgMinute Height = 225 Index = 24 Left = 4260 Top = 5310 Width = 225 End Begin Image imgMinute Height = 225 Index = 25 Left = 4035 Top = 5460 Width = 225 End Begin Image imgMinute Height = 225 Index = 26 Left = 3780 Top = 5580 Width = 225 End Begin Image imgMinute Height = 225 Index = 27 Left = 3525 Top = 5670 Width = 225 End Begin Image imgMinute Height = 225 Index = 28 Left = 3270 Top = 5730 Width = 225 End Begin Image imgMinute Height = 225 Index = 29 Left = 3015 Top = 5760 Width = 225 End Begin Image imgMinute Height = 225 Index = 30 Left = 2760 Top = 5775 Width = 225 End Begin Image imgMinute Height = 225 Index = 31 Left = 2505 Top = 5760 Width = 225 End Begin Image imgMinute Height = 225 Index = 32 Left = 2250 Top = 5730 Width = 225 End Begin Image imgMinute Height = 225 Index = 33 Left = 1995 Top = 5670 Width = 225 End Begin Image imgMinute Height = 225 Index = 34 Left = 1740 Top = 5580 Width = 225 End Begin Image imgMinute Height = 225 Index = 35 Left = 1485 Top = 5460 Width = 225 End Begin Image imgMinute Height = 225 Index = 36 Left = 1260 Top = 5310 Width = 225 End Begin Image imgMinute Height = 225 Index = 37 Left = 1035 Top = 5160 Width = 225 End Begin Image imgMinute Height = 225 Index = 38 Left = 840 Top = 4965 Width = 225 End Begin Image imgMinute Height = 225 Index = 39 Left = 660 Top = 4770 Width = 225 End Begin Image imgMinute Height = 225 Index = 40 Left = 495 Top = 4545 Width = 225 End Begin Image imgMinute Height = 225 Index = 41 Left = 375 Top = 4290 Width = 225 End Begin Image imgMinute Height = 225 Index = 42 Left = 285 Top = 4035 Width = 225 End Begin Image imgMinute Height = 225 Index = 43 Left = 210 Top = 3765 Width = 225 End Begin Image imgMinute Height = 225 Index = 44 Left = 180 Top = 3495 Width = 225 End Begin Image imgMinute Height = 225 Index = 45 Left = 165 Top = 3225 Width = 225 End Begin Image imgMinute Height = 225 Index = 46 Left = 180 Top = 2955 Width = 225 End Begin Image imgMinute Height = 225 Index = 47 Left = 210 Top = 2685 Width = 225 End Begin Image imgMinute Height = 225 Index = 48 Left = 285 Top = 2415 Width = 225 End Begin Image imgMinute Height = 225 Index = 49 Left = 375 Top = 2160 Width = 225 End Begin Image imgMinute Height = 225 Index = 50 Left = 495 Top = 1905 Width = 225 End Begin Image imgMinute Height = 225 Index = 51 Left = 660 Top = 1680 Width = 225 End Begin Image imgMinute Height = 225 Index = 52 Left = 840 Top = 1485 Width = 225 End Begin Image imgMinute Height = 225 Index = 53 Left = 1035 Top = 1290 Width = 225 End Begin Image imgMinute Height = 225 Index = 54 Left = 1260 Top = 1140 Width = 225 End Begin Image imgMinute Height = 225 Index = 55 Left = 1485 Top = 990 Width = 225 End Begin Image imgMinute Height = 225 Index = 56 Left = 1740 Top = 870 Width = 225 End Begin Image imgMinute Height = 225 Index = 57 Left = 1995 Top = 780 Width = 225 End Begin Image imgMinute Height = 225 Index = 58 Left = 2250 Top = 720 Width = 225 End Begin Image imgMinute Height = 225 Index = 59 Left = 2505 Top = 690 Width = 225 End Begin Image imgHour Height = 495 Index = 12 Left = 2625 Top = 930 Width = 495 End Begin Image imgHour Height = 495 Index = 1 Left = 3720 Top = 1200 Width = 495 End Begin Image imgHour Height = 495 Index = 2 Left = 4545 Top = 1995 Width = 495 End Begin Image imgHour Height = 495 Index = 3 Left = 4830 Top = 3090 Width = 495 End Begin Image imgHour Height = 495 Index = 4 Left = 4545 Top = 4185 Width = 495 End Begin Image imgHour Height = 495 Index = 5 Left = 3705 Top = 4980 Width = 495 End Begin Image imgHour Height = 495 Index = 6 Left = 2625 Top = 5250 Width = 495 End Begin Image imgHour Height = 495 Index = 7 Left = 1545 Top = 4980 Width = 495 End Begin Image imgHour Height = 495 Index = 8 Left = 705 Top = 4185 Width = 495 End Begin Image imgHour Height = 495 Index = 9 Left = 420 Top = 3090 Width = 495 End Begin Image imgHour Height = 495 Index = 10 Left = 705 Top = 1965 Width = 495 End Begin Image imgHour Height = 495 Index = 11 Left = 1545 Top = 1200 Width = 495 End End Begin PictureClip pclHour Cols = 12 Location = "5940,990,6150,-15" Picture = DTENTRY.FRX:0302 Rows = 2 End Begin PictureClip pclMinute Cols = 60 Location = "13500,450,6555,-90" Picture = DTENTRY.FRX:370C Rows = 2 End Option Explicit Dim miLastHourDown%, miLastMinuteDown%, mbLoading%, miAMPM% Dim miOldMonth%, miOldDay%, miOldThousands%, miOldHundreds% Dim miOldTens%, miOldOnes% Const BLUE = &H800000 Const RED = &H80& Const BLACK = &H0 Sub Center (AnyForm As Form) AnyForm.Left = (Screen.Width - AnyForm.Width) / 2 AnyForm.Top = (Screen.Height - AnyForm.Height) / 2 End Sub Sub cmdCancel_Click () frmDateTime.Tag = "" Unload Me End Sub Sub cmdOK_Click () frmDateTime.Tag = frmDateTime.Caption Unload Me End Sub Sub cmdResetDate_Click () cmdResetMonth_Click cmdResetDay_Click cmdResetYear_Click End Sub Sub cmdResetDay_Click () pnlDay.Caption = cmdResetDay.Caption optDay(miOldDay).ForeColor = BLACK miOldDay = Val(pnlDay.Caption) - 1 optDay(miOldDay).Value = True optDay(miOldDay).ForeColor = RED End Sub Sub cmdResetMonth_Click () pnlMonth.Caption = cmdResetMonth.Caption optMonth(miOldMonth).ForeColor = BLACK miOldMonth = Month(pnlMonth.Caption & "-01-1980") - 1 optMonth(miOldMonth).Value = True optMonth(miOldMonth).ForeColor = RED End Sub Sub cmdResetTime_Click () Dim iHour%, iMinute%, iAMPM% iHour = Val(Left$(Format$(cmdResetTime.Caption, "hh:mm AM/PM"), 2)) iMinute = Val(Right$(Format$(cmdResetTime.Caption, "hh:mm"), 2)) HourUp miLastHourDown MinuteUp miLastMinuteDown HourDown iHour MinuteDown iMinute If Right$(cmdResetTime.Caption, 2) = "AM" Then optAMPM(0).Value = True optAMPM(0).ForeColor = RED optAMPM(1).ForeColor = BLACK Else optAMPM(1).Value = True optAMPM(1).ForeColor = RED optAMPM(0).ForeColor = BLACK End If UpdateTime End Sub Sub cmdResetYear_Click () pnlYear.Caption = cmdResetYear.Caption optThousands(Val(Mid$(pnlYear.Caption, 1, 1))).Value = True optHundreds(Val(Mid$(pnlYear.Caption, 2, 1))).Value = True optTens(Val(Mid$(pnlYear.Caption, 3, 1))).Value = True optOnes(Val(Mid$(pnlYear.Caption, 4, 1))).Value = True End Sub Sub Colorize () Dim i% For i = 0 To 11 If optMonth(i).Value Then optMonth(i).ForeColor = RED Else optMonth(i).ForeColor = BLACK End If Next i For i = 0 To 30 If optDay(i).Value Then optDay(i).ForeColor = RED Else optDay(i).ForeColor = BLACK End If Next i For i = 0 To 9 If optThousands(i).Value Then optThousands(i).ForeColor = RED Else optThousands(i).ForeColor = BLACK End If If optHundreds(i).Value Then optHundreds(i).ForeColor = RED Else optHundreds(i).ForeColor = BLACK End If If optTens(i).Value Then optTens(i).ForeColor = RED Else optTens(i).ForeColor = BLACK End If If optOnes(i).Value Then optOnes(i).ForeColor = RED Else optOnes(i).ForeColor = BLACK End If Next i End Sub Sub DimDays (Index) Dim vMarDate As Variant, vFebDate As Variant Select Case Index Case 0, 2, 4, 6, 7, 9, 11'31 optDay(28).Enabled = True optDay(29).Enabled = True optDay(30).Enabled = True Case 3, 5, 8, 10 '30 optDay(28).Enabled = True optDay(29).Enabled = True optDay(30).Enabled = False If optDay(30).Value Then optDay(29).Value = True End If Case 1 '? vMarDate = Format("03-01-" & pnlYear.Caption) vFebDate = Format("02-28-" & pnlYear.Caption) If vMarDate - vFebDate = 1 Then optDay(28).Enabled = False Else optDay(28).Enabled = True End If optDay(29).Enabled = False optDay(30).Enabled = False If optDay(29).Value Or optDay(30).Value Then mbLoading = True optDay(28).Value = True mbLoading = False End If If optDay(28).Value And Not optDay(28).Enabled Then mbLoading = True optDay(27).Value = True mbLoading = False End If End Select End Sub Sub Form_Load () Dim i%, sCurDate$, sCurTime$, iMonthNo% mbLoading = True Center Me sCurDate = Date$ cmdResetDate.Caption = Format$(sCurDate, "mmm dd, yyyy") cmdResetMonth.Caption = Format$(sCurDate, "mmm") miOldMonth = Month(sCurDate) - 1 optMonth(miOldMonth).Value = True cmdResetDay.Caption = Format$(sCurDate, "dd") miOldDay = Day(sCurDate) - 1 optDay(miOldDay).Value = True cmdResetYear.Caption = Format$(sCurDate, "yyyy") miOldThousands = Val(Mid$(Format$(sCurDate, "yyyy"), 1, 1)) optThousands(miOldThousands).Value = True optThousands(miOldThousands).ForeColor = RED miOldHundreds = Val(Mid$(Format$(sCurDate, "yyyy"), 2, 1)) optHundreds(miOldHundreds).Value = True optHundreds(miOldHundreds).ForeColor = RED miOldTens = Val(Mid$(Format$(sCurDate, "yyyy"), 3, 1)) optTens(miOldTens).Value = True optTens(miOldTens).ForeColor = RED miOldOnes = Val(Mid$(Format$(sCurDate, "yyyy"), 4, 1)) optOnes(miOldOnes).Value = True optOnes(miOldOnes).ForeColor = RED pnlMonth.Caption = cmdResetMonth.Caption pnlDay.Caption = cmdResetDay.Caption pnlYear.Caption = cmdResetYear.Caption sCurTime = Time$ cmdResetTime.Caption = Format$(sCurTime, "hh:mm:ss AM/PM") For i = 1 To 12 imgHour(i).Picture = pclHour.GraphicCell(i - 1) Next i For i = 0 To 59 imgMinute(i).Picture = pclMinute.GraphicCell(i) Next i miLastHourDown = Val(Format$(sCurTime, "hh")) If Right$(cmdResetTime.Caption, 2) = "AM" Then optAMPM(0).Value = True optAMPM(0).ForeColor = RED optAMPM(1).ForeColor = BLACK miAMPM = 0 Else optAMPM(1).Value = True optAMPM(1).ForeColor = RED optAMPM(0).ForeColor = BLACK miAMPM = 1 End If If miLastHourDown > 12 Then miLastHourDown = miLastHourDown - 12 End If miLastMinuteDown = Val(Right$(Format$(sCurTime, "hh:mm"), 2)) HourDown miLastHourDown MinuteDown miLastMinuteDown UpdateTime UpdateDate mbLoading = False End Sub Sub HourDown (iHour%) imgHour(iHour).Picture = pclHour.GraphicCell((iHour - 1) + 12) miLastHourDown = iHour End Sub Sub HourUp (iHour%) imgHour(miLastHourDown).Picture = pclHour.GraphicCell(miLastHourDown - 1) End Sub Sub imgHour_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub HourUp miLastHourDown HourDown Index UpdateTime End Sub Sub imgMinute_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) If Button <> 1 Then Exit Sub MinuteUp miLastMinuteDown MinuteDown Index UpdateTime End Sub Function MeridianValue$ () If miAMPM = 0 Then MeridianValue$ = "AM" Else MeridianValue$ = "PM" End If End Function Sub MinuteDown (iMinute%) imgMinute(iMinute).Picture = pclMinute.GraphicCell(iMinute + 60) miLastMinuteDown = iMinute End Sub Sub MinuteUp (iMinute%) imgMinute(miLastMinuteDown).Picture = pclMinute.GraphicCell(miLastMinuteDown) End Sub Sub optAMPM_Click (Index As Integer, Value As Integer) If mbLoading Then Exit Sub If optAMPM(0).Value Then miAMPM = 0 optAMPM(0).ForeColor = RED optAMPM(1).ForeColor = BLACK Else miAMPM = 1 optAMPM(1).ForeColor = RED optAMPM(0).ForeColor = BLACK End If UpdateTime End Sub Sub optDay_Click (Index As Integer, Value As Integer) Dim i% pnlDay.Caption = Format$("" & Index + 1, "00") optDay(miOldDay).ForeColor = BLACK optDay(Index).ForeColor = RED miOldDay = Index UpdateDate End Sub Sub optHundreds_Click (Index As Integer, Value As Integer) If mbLoading Then Exit Sub Dim sYear$ sYear = pnlYear.Caption Mid$(sYear, 2, 1) = "" & Index pnlYear.Caption = sYear If optMonth(1).Value Then DimDays 1 End If optHundreds(miOldHundreds).ForeColor = BLACK optHundreds(Index).ForeColor = RED miOldHundreds = Index UpdateDate End Sub Sub optMonth_Click (Index As Integer, Value As Integer) pnlMonth.Caption = Format$(Format$("" & Index + 1 & "-01-1980", "00"), "mmm") DimDays Index optMonth(miOldMonth).ForeColor = BLACK optMonth(Index).ForeColor = RED miOldMonth = Index UpdateDate End Sub Sub optOnes_Click (Index As Integer, Value As Integer) If mbLoading Then Exit Sub Dim sYear$ sYear = pnlYear.Caption Mid$(sYear, 4, 1) = "" & Index pnlYear.Caption = sYear If optMonth(1).Value Then DimDays 1 End If optOnes(miOldOnes).ForeColor = BLACK optOnes(Index).ForeColor = RED miOldOnes = Index UpdateDate End Sub Sub optTens_Click (Index As Integer, Value As Integer) If mbLoading Then Exit Sub Dim sYear$ sYear = pnlYear.Caption Mid$(sYear, 3, 1) = "" & Index pnlYear.Caption = sYear If optMonth(1).Value Then DimDays 1 End If optTens(miOldTens).ForeColor = BLACK optTens(Index).ForeColor = RED miOldTens = Index UpdateDate End Sub Sub optThousands_Click (Index As Integer, Value As Integer) If mbLoading Then Exit Sub Dim sYear$ sYear = pnlYear.Caption Mid$(sYear, 1, 1) = "" & Index pnlYear.Caption = sYear If optMonth(1).Value Then DimDays 1 End If optThousands(miOldThousands).ForeColor = BLACK optThousands(Index).ForeColor = RED miOldThousands = Index UpdateDate End Sub Sub tmrCurTime_Timer () cmdResetTime.Caption = Format$(Time$, "hh:mm:ss AM/PM") End Sub Sub UpdateDate () pnlDateEntered.Caption = pnlMonth.Caption & " " & pnlDay.Caption & ", " & pnlYear.Caption End Sub Sub UpdateTime () pnlTimeEntered.Caption = Format$(("" & miLastHourDown & ":" & miLastMinuteDown), "h:mm") & " " & MeridianValue$() End Sub