Jobs
Author: Patrick Lockefeer (II) Date Submitted: 7/24/2005 Category: Microsoft Controls Compatibility: VB 6 This code has been accessed 4773 times.
Email Yourself this snippet:
'No Declarations Controls : Calendar : Add control >> Components >> Microsoft Calendar control 8.0 Calendar name : Calendar1 ListBox name : List1
Code
'Click on the Calendar date to Add this date to the List '3 possibilities : '1.Date only List1.AddItem (Format(Calendar1, "d")) 'or '2.Date & Month List1.AddItem (Format(Calendar1, "d" & "/" & "m")) 'or '3.Date & Month & Year List1.AddItem (Format(Calendar1, "d" & "/" & "m" & "/" & "yy"))
