Private Sub flxDates_Click()

'Check if user clicks on a valid date in appointments grid
'Entry  (txtMonth) holds current month number
'       (txtYear) holds current year
'       (txtToday) holds currently selected date

Dim vRow As Long, vCol As Long, vDay As Long
Dim vDate As Date
Dim vText As String

    FlexGridClick flxDates, vRow, vCol, vText                                                   'return Row & Col (or whatever else)
    vDate = 0                                                                                   'set vDate to 0
    Select Case fraMode
        Case 1                                                                                  'if DAY mode
            vDate = txtToday                                                                    'set todays date
        Case 2                                                                                  'if WEEK mode
            If vRow > 0 And vCol > 0 Then                                                       'skip if either header rows
                vDate = txtToday - Weekday(txtToday)                                            'calc first day of week
                vDate = vDate + vRow                                                            'calc selected date
            End If
        Case 3                                                                                  'if MONTH mode
            If vRow > 1 Then                                                                    'skip if either header rows
                If vText <> "" Then                                                             'if cell NOT blank then
                    vDay = Left(flxDates.TextMatrix(vRow, vCol), 2)                             'fetch day No
                    If vDay > 0 Then
                        vDate = DateSerial(txtYear, txtMonth, vDay)                             'set vDate to selected date
                    End If
                End If
            End If
    End Select
    If vDate <> 0 Then                                                                          'if vDate is valid then
        MsgBox "Open another form here to create an appointment for " & Format(vDate, "d mmmm yyyy") & " and save to tablo1.", vbExclamation + vbOKOnly, "Create Appointment Form"
    End If

End Sub