VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 6690 ClientLeft = 60 ClientTop = 345 ClientWidth = 7590 LinkTopic = "Form1" ScaleHeight = 6690 ScaleWidth = 7590 StartUpPosition = 3 'Windows Default Begin VB.ComboBox Combo1 Height = 315 ItemData = "Form1.frx":0000 Left = 840 List = "Form1.frx":0028 Style = 2 'Dropdown List TabIndex = 42 Top = 240 Width = 2055 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 41 Left = 6480 TabIndex = 41 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 40 Left = 5640 TabIndex = 40 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 39 Left = 4800 TabIndex = 39 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 38 Left = 3960 TabIndex = 38 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 37 Left = 3120 TabIndex = 37 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 36 Left = 2280 TabIndex = 36 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 35 Left = 1440 TabIndex = 35 Top = 5040 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 34 Left = 6480 TabIndex = 34 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 33 Left = 5640 TabIndex = 33 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 32 Left = 4800 TabIndex = 32 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 31 Left = 3960 TabIndex = 31 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 30 Left = 3120 TabIndex = 30 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 29 Left = 2280 TabIndex = 29 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 28 Left = 1440 TabIndex = 28 Top = 4200 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 27 Left = 6480 TabIndex = 27 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 26 Left = 5640 TabIndex = 26 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 25 Left = 4800 TabIndex = 25 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 24 Left = 3960 TabIndex = 24 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 23 Left = 3120 TabIndex = 23 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 22 Left = 2280 TabIndex = 22 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 21 Left = 1440 TabIndex = 21 Top = 3360 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 20 Left = 6480 TabIndex = 20 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 19 Left = 5640 TabIndex = 19 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 18 Left = 4800 TabIndex = 18 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 17 Left = 3960 TabIndex = 17 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 16 Left = 3120 TabIndex = 16 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 15 Left = 2280 TabIndex = 15 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 14 Left = 1440 TabIndex = 14 Top = 2520 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 13 Left = 6480 TabIndex = 13 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 12 Left = 5640 TabIndex = 12 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 11 Left = 4800 TabIndex = 11 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 10 Left = 3960 TabIndex = 10 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 9 Left = 3120 TabIndex = 9 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 8 Left = 2280 TabIndex = 8 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 7 Left = 1440 TabIndex = 7 Top = 1680 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 6 Left = 6480 TabIndex = 6 Top = 840 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 5 Left = 5640 TabIndex = 5 Top = 840 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 4 Left = 4800 TabIndex = 4 Top = 840 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 3 Left = 3960 TabIndex = 3 Top = 840 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 2 Left = 3120 TabIndex = 2 Top = 840 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 1 Left = 2280 TabIndex = 1 Top = 840 Width = 255 End Begin VB.Label lblDay Alignment = 1 'Right Justify BackStyle = 0 'Transparent Caption = "lblDay" Height = 255 Index = 0 Left = 1440 TabIndex = 0 Top = 840 Width = 255 End Begin VB.Line Line12 X1 = 5880 X2 = 5880 Y1 = 840 Y2 = 5880 End Begin VB.Line Line11 X1 = 5040 X2 = 5040 Y1 = 840 Y2 = 5880 End Begin VB.Line Line10 X1 = 4200 X2 = 4200 Y1 = 840 Y2 = 5880 End Begin VB.Line Line9 X1 = 3360 X2 = 3360 Y1 = 840 Y2 = 5880 End Begin VB.Line Line8 X1 = 2520 X2 = 2520 Y1 = 840 Y2 = 5880 End Begin VB.Line Line7 X1 = 1680 X2 = 1680 Y1 = 840 Y2 = 5880 End Begin VB.Shape Shape1 Height = 5055 Left = 840 Top = 840 Width = 5895 End Begin VB.Line Line6 X1 = 840 X2 = 6720 Y1 = 5880 Y2 = 5880 End Begin VB.Line Line5 X1 = 840 X2 = 6720 Y1 = 3360 Y2 = 3360 End Begin VB.Line Line4 X1 = 840 X2 = 6720 Y1 = 4200 Y2 = 4200 End Begin VB.Line Line3 X1 = 840 X2 = 6720 Y1 = 5040 Y2 = 5040 End Begin VB.Line Line2 X1 = 840 X2 = 6720 Y1 = 2520 Y2 = 2520 End Begin VB.Line Line1 X1 = 840 X2 = 6720 Y1 = 1680 Y2 = 1680 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Combo1_Click() Dim nstart As Integer 'tells us where to start nstart = Weekday(Combo1.ListIndex + 1 & "/01/2002") Dim ninc As Integer ninc = 1 'Clear the dates Dim x As Integer For x = lblDay.LBound To lblDay.UBound lblDay(x).Caption = "" Next 'Loop through the days of the month and add the captions While IsDate(Combo1.ListIndex + 1 & "/" & ninc & "/2002") lblDay(ninc + nstart - 2).Caption = ninc ninc = ninc + 1 Wend End Sub Private Sub Form_Load() Dim x As Integer For x = lblDay.LBound To lblDay.UBound lblDay(x).Caption = "" Next End Sub