Command1.Caption = Format$(Date, "Short Date")
__________________