Получить значение системной даты и вычислить - VB

Формулировка задачи:

Системную дату получили, а как вычислить количество месяцев прошедших с начала года, и поместить эти данные в строку заголовок формы, сделать зеленым цвет строки заголовка окна, предоставить пользователю возможность восстановления исходного цвета строки заголовка окна.

Решение задачи: «Получить значение системной даты и вычислить»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim datTim1 As Date '
Dim datTim2 As Date '
datTim1 = #1/1/2014# ' Начало года
datTim2 = Now()      ' Текущая дата
m = DateDiff("m", datTim1, datTim2)
Form1.Caption = "Месяцев с начала года= " & m
End Sub
                        