DUVIDA USANDO UM CALENDARIO

NILTON.VIANNA 20/12/2010 22:42:30
#360037

Ola amigos
Será que alguém pode me ajudar
Estou fazendo um projeto que preciso usar um calendário
Já fiz vários testes com vário calendário o que mais aproximou
Foi o MonthView1
é um sistema de agendamento de consulta, ao agendar um mês depois.
do atual esta tudo bem certinho porem o MonthView1 altera a data atual
do computador, caso não venha acerta a data antes de sair do projeto ele.
Mantém a data do ultimo agendamento (no caso a data ficara sempre errada)

Segue abaixo exemplo que estou usando

[ô]MonthView1 é igual CalDia

Private Sub CalDia_DateClick(ByVal DateClicked As Date)
lblData.Caption = CalDia.Value
If CDate(lblData.Caption) < CDate(txtData.Text) Then
MsgBox [Ô]A data selecionada é inferior a data atual ![Ô], vbMagenta, [Ô] Data Invalida[Ô]
End If
If lblData.Caption <> txtData Then
GBHoje.Enabled = True
ElseIf lblData.Caption = txtData Then
GBHoje.Enabled = False
End If
End Sub

Grato