VERSION 5.00
Begin VB.Form frm試用期 
   Caption         =   "試用期"
   ClientHeight    =   3135
   ClientLeft      =   60
   ClientTop       =   405
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3135
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "frm試用期"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit


Private Sub Form_Load()
  Dim hKey As Long
  Dim time1 As Long
  Dim lendata As Long
  Dim ret As Long
  Me.Hide
    Dim retvalue As Date
    retvalue = GetSetting(App.Title, "Settings", "datevalue", Date)
    If retvalue = Date Then
        SaveSetting App.Title, "settings", "datevalue", Date
    ElseIf Date - retvalue + 1 > 365 Then
        MsgBox "軟件已過期" & 365 - (Date - retvalue) & " 天，注冊請聯系作者！QQ:826509803", vbExclamation, "客戶管理系統試用版，請注冊使用！"
        End
    End If
    MsgBox "本程序的試用期還有：" & 365 - (Date - retvalue) & " 天", vbInformation, "客戶管理系統試用版"
    Load frm主窗體
    frm登錄.Show
End Sub