[vb6] perche non funziona?

[LMondi]

Guiarda che è Select Case Date che non funziona (incompleto), perchè con If il codice dà il risultato atteso:

If Date >= CDate("01/01/" & Year(Now)) And Date <= CDate("28/02/" & Year(Now)) Then
'1° bimestre
sBim = "1° bimestre"
TxtDATE1 = sBim
End If
If Date >= CDate("01/03/" & Year(Now)) And Date <= CDate("30/04/" & Year(Now)) Then
'2° bimestre
sBim = "2° bimestre"
TxtDATE1 = sBim
End If