error in calendar sample

Hi,

I get a error in the calendar sample at marked row.
How can say me, what is wrong or what´s missing?
  
 If bPrev <> frmMain.g_bUseBuiltInCalendarDialogs Then
    
        If frmMain.g_bUseBuiltInCalendarDialogs Then
            Set frmMain.g_dlgCalendarReminders.Calendar = CalendarControl 
            frmMain.g_dlgCalendarReminders.ParentHWND = frmMain.hwnd
            frmMain.g_dlgCalendarReminders.RemindersWindowShowInTaskBar = True
       
            frmMain.g_dlgCalendarReminders.CreateRemindersWindow
            frmReminders.Visible = False
        Else
            frmMain.g_dlgCalendarReminders.CloseRemindersWindow
        End If
       
    End If