大家好，我是个新手，我刚开始自学编程，买了本visual basic程序设计（第二版） 谭浩强主编
按书上的一道例题实践发现情况不对，所以想向各位请教，题目如下:
【例3.5】在主窗口中单击鼠标，随时能打开一个日期提示窗口并放置在屏幕左上角，再次在主窗口中单击鼠标，则隐藏提示窗口，即通过单击鼠标来切换日期窗口的现实和隐藏。
    工程包括两个窗体frmMain和frmDate，frmMain窗体为启动窗体，其中需要响应鼠标单击事件，代码如下：
     Private Sub Form_Click()
        If frmDate.Visible=True Then       '根据窗体frmDate 当前状态决定显示或隐藏
           frmDate.Hide
        Else
           frmDate.Show vbModeless,Me
        End If
     End Sub
     frmDate窗体的Height属性为300缇，Top和Left属性为0，BorderStyle属性为4.利用窗口标题栏显示日期和时间。代码如下：
    Private Sub Form_Load()
       Me.Caption=Now
    End Sub
我按照这例题代码输入后运行，单击主窗口时却弹出这样一个信息框：
                   实时错误'424'
                   要求对象
                   继续 调试 结束 帮助
我已经检查很多遍代码输入没有错，请问各位学长，学姐我该如何解决啊？