Ya que no especificaste mucho para lo que quieres el control Calendar, lo único que te puedo decir es si quieres que el calendario te indique la fecha actual al iniciarse el formulario tienes que colocar en el Form:
Private Sub Form_Load()
Calendar1.Day = Format(Date, "DD")
Calendar1.Month = Format(Date, "MM")
Calendar1.Year = Format(Date, "YYYY")
End Sub
Ojala te sirva de algo. Si necitas algo mas no dudes en preguntarmelo
Saludos
