MonthCalendar SetDate [resolved]

is there a better way to do this, it looks so cheesy
it grabs the first of this month and 1st of last month using monthcalendars

VB Code:

Dim dtMonth, dtMonth2, dtYear, dtYear2 As Int16
        dtMonth = Format(MC2.TodayDate, "MM")
        dtYear = Format(MC2.TodayDate, "yyyy")
        dtYear2 = dtYear
        'get last months number
        dtMonth2 = dtMonth - 1
        ' if month = january 
        If dtMonth2 = 0 Then
            dtMonth2 = 12
            dtYear2 -= 1
        End If
        'set monthcalender
        MC1.SetDate(dtMonth2 & "/1/" & dtYear2)
        MC2.SetDate(dtMonth & "/1/" & dtYear)

but then again it does work