VERSION 5.00
Begin VB.Form frmSplash 
   BorderStyle     =   0  'None
   ClientHeight    =   2910
   ClientLeft      =   4335
   ClientTop       =   6150
   ClientWidth     =   7515
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "frmSplash.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash.frx":000C
   ScaleHeight     =   194
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   501
   ShowInTaskbar   =   0   'False
   Begin VB.Label lblDays 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   240
      Left            =   6990
      TabIndex        =   1
      Top             =   2070
      Width           =   75
   End
   Begin VB.Label lblVersion 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Version"
      ForeColor       =   &H00000000&
      Height          =   195
      Left            =   150
      TabIndex        =   0
      Top             =   2595
      Width           =   525
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub
Private Sub Form_Load()
    
    ApplyLanguage Me
    
    lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
    Call CheckDays
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Unload Me
End Sub
Sub CheckDays()
Dim uDays As Byte, uLastday As Date
uDays = DeCrypt$(GetSetting(App.ProductName, "Modules", "Hash", Crypt$(0)))
uLastday = DeCrypt$(GetSetting(App.ProductName, "Modules", "Source", Crypt$("1/1/1980")))
    
    If uLastday <> Date Then
    uDays = uDays + 1
    
        If uDays = 181 Then
        MsgBox "Esta versão expirou. Por favor, entre em contato com Intuition (www.intuitionitd.com) para receber uma atualização."
        End
        End If
    
    Me.lblDays = uDays & "/180 days left"
    Me.Refresh
    
    End If

SaveSetting App.ProductName, "Modules", "Hash", Crypt$("0000000" & uDays)
SaveSetting App.ProductName, "Modules", "Source", Crypt$(Date)

End Sub
