VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} frmCal 
   Caption         =   "Select  Date"
   ClientHeight    =   6090
   ClientLeft      =   30
   ClientTop       =   480
   ClientWidth     =   4710
   OleObjectBlob   =   "frmCal.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "frmCal"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub cmdButtonExit_Click()
 On Error Resume Next
 Me.Hide
End Sub

'Private Sub LabelCell_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
'        ByVal X As Single, ByVal Y As Single)
' On Error Resume Next
' If ActiveCell.HasFormula Then Me.LabelCell.ControlTipText = "Has Formula" _
'    Else Me.LabelCell.ControlTipText = "active cell"
'End Sub

Private Sub cmdSelected_Click()
InsertSelDate
End Sub

Private Sub ListBox1_Click()
 On Error Resume Next
GetSelectedDay 1
End Sub


Private Sub ListBox2_Click()
 On Error Resume Next
 Call GetSelectedDay(2)
End Sub

Private Sub ListBox3_Click()
 On Error Resume Next
 Call GetSelectedDay(3)
End Sub

Private Sub ListBox4_Click()
 On Error Resume Next
 Call GetSelectedDay(4)
End Sub

Private Sub ListBox5_Click()
 On Error Resume Next
Call GetSelectedDay(5)
End Sub

Private Sub ListBox6_Click()
 On Error Resume Next
 Call GetSelectedDay(6)
End Sub

Private Sub ListBox7_Click()
 On Error Resume Next
 Call GetSelectedDay(7)
End Sub

Private Sub MthDown_Click()
MonthMove -1
End Sub

Private Sub MthUP_Click()
MonthMove 1
End Sub



Private Sub YearDown_Click()
ChangeYear -1
End Sub

Private Sub YearUP_Click()
ChangeYear 1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    'handles red X close for form
    If CloseMode = 0 Then
    Cancel = True 'reset
    frmCal.Hide
       
    End If
End Sub