Visual Basic - duda calendario

holas, tengo el sgte problema en visual basic 6.0, en un formulario agregué un Calendar, y quiero que solamente sean seleccionables ciertos dias (por ejemplo lunes y jueves). ¿Es esto posible? y si es asi ¿podrian orientarme para poder hacerlo? Gracias

Te paso un ejemplo :

Option Explicit

Private Sub Calendar1_Click()

If DiaF(Calendar1.Value) Then
MsgBox "Dia festivo"
Do While DiaF(Calendar1.Value)
Calendar1.Value = Calendar1.Value + 1
Loop
End If
End Sub

Function DiaF(fecha As Date) As Boolean

If Weekday(fecha, 2) > 5 Then
DiaF = True
Else
DiaF = False
End If

End Function