List Box help

[Geoff Varner]

Thanks in advance for any help you can give. I am trying to write code taking dates from a calendar and populating them into sepearte list boxes. I have a start date and stop date list box but I don't know how to tell the list boxes to fill one at a time and only once each. Can anyone help?

Here is what I have code wise so far.

Private Sub calendar1_click()
startdate.AddItem Calendar1.Value
If startdate.Value = Calendar1.Value Then
Unload Calendar1
End If
End Sub

Private Sub calendar1_dblclick()
stopdate.AddItem Calendar1.Value
End Sub