evidenziare giorno della settimana

[samuele_dc]

Ciao a tutti.Ho un programmino in Vb6 in cui ho bisogno di evidenziare di che giorno della settimana si tratta.mi spiego meglio:
ho un dtpicker da cui prendo la data ma come faccio a passargli il valore del giorno ad esempio 'lunedì' ? infatti se gli passo il value del dtpicker e il dtpicker è settato con Vblongdate....mi visualizza la data per esteso ma in realtà il value è in formato 'dd/mm/yyyy'
grazie a chiunque mi possa rispondere.ciao

[yyzyyz]

:di56:

setday = Weekday(Now)
    Select Case setday
        Case 1: setday = "Domenica": Text1.Text = setday
        Case 2: setday = "Lunedi`": Text1.Text = setday
        Case 3: setday = "Martedi`": Text1.Text = setday
        Case 4: setday = "Mercoledi`": Text1.Text = setday
        Case 5: setday = "Giovedi`": Text1.Text = setday
        Case 6: setday = "Venerdi`": Text1.Text = setday
        Case 7: setday = "Sabato": Text1.Text = setday

        
    End Select