I did this:
MsgBox(getlabel(DayOfWeek.Sunday, 1))
MsgBox(getlabel(getCurrentDayOfWeek("su"), 1))
with your function and (for shortness..):
Function getlabel(ByVal day As DayOfWeek, ByVal calendarRow As Integer) As String
Select Case day 'Get a label name
Case DayOfWeek.Sunday
Select Case calendarRow
Case 1
Return "Sunday"
End Select
Case DayOfWeek.Monday
Select Case calendarRow
Case 1
Return "Monday"
End Select
Case DayOfWeek.Tuesday
Select Case calendarRow
Case 1
Return "Tuesday"
End Select
End Select
End Function
And it works...other than that...i think you will have to post your entire code...
Intelligence is almost useless for those who have nothing else! Email: caiokf@gmail.com