Calendar Control..................please help

[Smie]

I really need help with this. I have a calandar, the days are numbered 1 through 7 starting with sunday. the variable holding the number is called DayOfTheWeek (DayOfTheWeek = 1 would be Sunday ect....) When a date is clicked, a variable (arySingleWordsArray) which holds names, sends info to a label so it shows the name(for this instance its an event but thats really not important). If there is no event for that day, it reads "None". my question is, why cant I get the calendar to automatically go to the next event? Im having some real problems with this, here is my code:

For i% = 1 To 7
For x% = 0 To 6
If dayoftheweek = i% and arySingleWordsArray(x%) = "None" Then
Schedule.Day = Schedule.Day + 1
dayoftheweek = dayoftheweek + 1
Else
SDate(1) = Schedule.Day
SDate(0) = Schedule.Month
SDate(2) = Schedule.Year
Timer2.Enabled = False
End If
Next x%
Next i%

I cant get this, BTW SDate is just my variable to hold parts of the date.

I REALLY appreciate any help I can get with this! Thank You VERY MUCH!!

[jkurpias]

Have you considered using the microsoft Calendar Control?

[Smie]

thats what i use

[Smie]

thats what i use