Visual Basic 6 - Problema calendario

funziona sempre solo per un mese

se posti tuto il codice posso aiutarti forse

Private Sub Command4_Click()
Calendar1.Day = Day(Date)
Text1 = Calendar1.Month
End Sub
Private Sub Timer2_Timer()
If Calendar1.Month = 1 Then
Text31.Visible = True
End If
If Calendar1.Month = "3" Then
Text31.Visible = True
End If
If Calendar1.Month = "5" Then
Text31.Visible = True
End If
If Calendar1.Month = "7" Then
Text31.Visible = True
End If
If Calendar1.Month = "8" Then
Text31.Visible = True
End If
If Calendar1.Month = "10" Then
Text31.Visible = True
End If
If Calendar1.Month = "12" Then
Text31.Visible = True
End If
End Sub

ho scaricato l' ocx e ho fatto un po di prove:
non puoi avere il mese se nn selezioni il giorno, questo perchè finche non selezioni il giorno, la proprietà value del calendar1 sarà la precendente

per il timer prova questo codice

Private Sub Timer2_Timer()
Dim Giorni As String
Dim HexGiorno As String
Giorni = "13578AC" 'in esadecimale 1 3 5 7 8 10 12
HexGiorno = Hex(Calendar1.Month)
    If InStr(Giorni, HexGiorno) Then
        Text31.Visible = True
    Else
        Text31.Visible = False
    End If
End Sub

grazie del codice, funziona. se qualcuno ha un altor metodo per far in modo che il giorno si selezioni in automatico posti pure... Grazie ancora!!

di niente

se mi viene in mente altro ti faccio sapere