请高手给指导一下

完整的代码：

Private Sub Form_Load()
   '影藏主窗体的叉
    Const MF_BYCOMMAND = &H0&
    Const SC_CLOSE = &HF060
    Dim hMenu As Long
    hMenu = GetSystemMenu(Application.hWndAccessApp, 0)
    Call DeleteMenu(hMenu, SC_CLOSE, MF_BYCOMMAND)
   
     '禁止使用和关闭代码
   Dim hwndMenu As Long
    Dim c As Long
    hwndMenu = GetSystemMenu(Me.Hwnd, 0)

    c = GetMenuItemCount(hwndMenu)

    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION

    c = GetMenuItemCount(hwndMenu)
    DeleteMenu hwndMenu, c - 1, MF_BYPOSITION
   
    '限制使用次数
  Dim RemainDay As Long
    RemainDay = GetSetting("MyApp", "set", "times", 0)
    If RemainDay >= 3 Then
       MsgBox "试用次数已满，请购买正版"
       'Unload Me
       Quit acQuitSaveAll '退出系统
    End If
    MsgBox "现在剩下：" & 3 - RemainDay & "的试用次数，请阁下珍惜！"
    RemainDay = RemainDay + 1
    SaveSetting "MyApp", "set", "times", RemainDay
    End Sub