Zavisi sta ti treba.
Najjednostavnije je da na aktivaciju (ili form_open) splashscreen-a ili na switchboard-u uradis sljedece:
dim dtmDatum as date
dtmDatum = #03/08/2006#
If dtmDatum = Now() Then
msgbox "Sretan 8. Mart"
else
'radi neki drugi kod
end if
end sub
PS ovo se isto moze raditi sa Case Select...
znaci sve zavisi sta tebi treba
----There is no place like 127.0.0.1-----