loc_46D619: var_12C = (CVar(CLng(CSng(Right(CSng(Right(var_B0, 1) & Mid(var_B0, 2, var_13C) & Left(var_B0, 1)), 1) & Mid(CSng(Right(var_B0, 1) & Mid(var_B0, 2, var_13C) & Left(var_B0, 1)), 2, var_13C) & Left(CSng(Right(var_B0, 1) & Mid(var_B0, 2, var_13C) & Left(var_B0, 1)), 1)))) * &H125AF)
loc_46D646: var_CC = CStr((CDbl(CDbl(CStr(var_12C))) - CDbl(var_B8(CLng(var_12C)))))
loc_46D683: var_B8(CLng(var_DC)) = CStr(CSng(Right(CVar(CStr(CDbl(CStr(CVar(CStr(CDbl(CStr(CVar(CStr(CDbl(CStr(var_12C)))))))))))), CLng(var_B2))))
'Data Table: 402B28
Dim var_D4 As Variant
Dim var_E4 As Variant
Dim var_F4 As Variant
Dim var_134 As Variant
Dim var_124 As Variant
Dim var_1C0 As String
Dim var_C0 As Label
loc_47B120: var_C0 = Me.Global.App
loc_47B137: arg_8(56) = CVar(App.EXEName & "_231_big")
loc_47B146: arg_8(72) = "setting231"
loc_47B165: var_98 = GetSetting(CStr(arg_8(56)), "Settings", "Model", vbNullString)
loc_47B188: var_A8 = CVar(GetSetting(CStr(arg_8(56)), "Settings", "ActivationCode", vbNullString)) 'Variant
loc_47B1AC: var_B8 = CVar(GetSetting(CStr(arg_8(56)), "Settings", "Serial", vbNullString)) 'Variant
loc_47B1B6: var_E4 = vbNullString
loc_47B1C8: var_F4 = (var_98 = "4111")
loc_47B1E6: If CBool((var_B8 = var_E4) And var_F4 And (var_A8 = vbNullString)) Then '47B1FD
loc_47B1F7: frmRegister.Show var_E4, var_F4
loc_47B1FC: Exit Sub
loc_47B1FD: End If
loc_47B216: arg_8(0) = CVar(GetSetting(arg_8(72), "Settings", "Run", vbNullString))
loc_47B233: var_F4 = (var_98 <> "4111")
loc_47B240: If CBool((arg_8(0) = vbNullString) And var_F4) Then '47B34E
loc_47B246: var_D4 = Date
loc_47B26E: arg_8(0) = Format(var_D4, "MM/DD/YYYY")
loc_47B288: Unknown_46357C(var_D4, arg_8(0), 0)
loc_47B290: arg_8(0) = var_D4
loc_47B299: var_D4 = Now
loc_47B2A8: var_E4 = "MM/DD/YYYYHH:MM:SS"
loc_47B2C2: arg_8(48) = CStr(Format(var_D4, var_E4))
loc_47B2E5: SaveSetting(arg_8(72), "Settings", "Run", CStr(arg_8(0)))
loc_47B2F5: If (var_98 = "4111") Then '47B30F
loc_47B306: frmRegister.Show var_E4, var_F4
loc_47B30B: Exit Sub
loc_47B30F: Else
loc_47B314: var_13C = arg_8(48)
loc_47B329: Unknown_46357C(var_D4, arg_8(48), &HFF, 1)
loc_47B340: SaveSetting(arg_8(72), "Settings", "Trial", CStr(var_D4))
loc_47B34B: End If
loc_47B34E: Else
loc_47B364: var_D4 = CVar(GetSetting(arg_8(72), "Settings", "Trial", vbNullString)) 'String
loc_47B367: arg_8(16) = var_D4
loc_47B37A: Unknown_467FDC(var_D4, arg_8(16), &HFF)
loc_47B382: arg_8(16) = var_D4
loc_47B3BB: var_134 = Left(arg_8(16), &HA) & " " & Right(arg_8(16), 8)
loc_47B3E2: Unknown_467FDC(var_16C, arg_8(0), 0, (CDate(CDate(var_134)) > Now))
loc_47B426: If CBool(1 Or (CDate(CDate(var_16C & " 00:00:00")) > Now)) Then '47B490
loc_47B45C: Unknown_46357C(var_134, Format("01/01/2055 12:00:00", "MM/DD/YYYYHH:MM:SS"), &HFF, 1)
loc_47B473: SaveSetting(arg_8(72), "Settings", "Trial", CStr(var_134))
loc_47B488: arg_8(52) = &HFF
loc_47B490: Else
loc_47B4C3: var_134 = Left(arg_8(16), &HA) & " " & Right(arg_8(16), 8)
loc_47B4DC: If (CDate(var_134) < CDate("01/01/1950 12:00:00")) Then '47B4E2
loc_47B4DF: GoTo loc_47B53F
loc_47B4E2: End If
loc_47B515: Unknown_46357C(var_134, Format(Now, "MM/DD/YYYYHH:MM:SS"), &HFF, 1)
loc_47B52C: SaveSetting(arg_8(72), "Settings", "Trial", CStr(var_134))
loc_47B53F: ' Referenced from: 47B4DF
loc_47B53F: End If
loc_47B53F: End If
loc_47B54F: var_F4 = vbNullString
loc_47B55F: If CBool((var_B8 <> vbNullString) And (var_A8 <> var_F4)) Then '47B629
loc_47B572: Call {8708A65B-B04C-4FFE-9FF14299EF84B6E7}.Method_1788 (CStr(var_B8), var_1C0, 1)
loc_47B57A: var_D4 = CVar(var_1C0) 'String
loc_47B589: If (var_D4 = var_A8) Then '47B626
loc_47B58C: var_E4 = vbNullString
loc_47B5B5: If (GetSetting(CStr(arg_8(56)), "Settings", "Accept", var_E4) = "Yes") Then '47B5C6
loc_47B5BE: Call {998FA49B-1349-4B00-82AB631A53E8A8E7}.Method_1784 (1, 1)
loc_47B5C6: Else
loc_47B5D8: 1(vbNullString).Caption =
loc_47B5EC: Set var_C0 = (vbNullString)
loc_47B5F2: frmSplash.Label.Caption =
loc_47B605: Set var_C0 = (0)
loc_47B60B: frmSplash.Label.Enabled =
loc_47B621: frmSplash.Show var_E4, var_F4
loc_47B626: End If
loc_47B626: End If
loc_47B629: Else
loc_47B62E: If arg_8(52) Then '47B641
loc_47B639: frmRegister.Visible = True
loc_47B641: Else
loc_47B64E: Unknown_467FDC(var_D4, arg_8(0))
loc_47B65E: If IsDate(var_D4) Then '47B7AD
loc_47B66E: Unknown_467FDC(var_D4, arg_8(0))
loc_47B67D: var_E4 = CDate(CDate((CDate(var_D4) + CDbl(&H1E))))
loc_47B6AC: If CBool((var_E4 >= Date) And Not(arg_8(52))) Then '47B7A0
loc_47B6B7: frmSplash.Visible = True
loc_47B6BF: var_1C4 = "s"
loc_47B6CF: Unknown_467FDC(var_D4, arg_8(0), 0)
loc_47B6DE: var_E4 = CDate(CDate((CDate(var_D4) + CDbl(&H1E))))
loc_47B6ED: var_124 = (var_E4 - Date)
loc_47B702: If ((var_B8 <> vbNullString) And (var_A8 <> 1) = 1) Then '47B70B
loc_47B708: var_1C4 = vbNullString
loc_47B70B: End If
loc_47B718: Unknown_467FDC(var_D4, arg_8(0), 0)
loc_47B727: var_E4 = CDate(CDate((CDate(var_D4) + CDbl(&H1E))))
loc_47B736: var_124 = (var_E4 - Date)
loc_47B763: Set var_C0 = 0(CStr((var_B8 <> vbNullString) And (var_A8 <> " day") & " day" & CVar(var_1C4) & " left in the trial activation"))
loc_47B769: frmSplash.Label.Caption = 0
loc_47B78F: Set var_C0 = ("Register Now")
loc_47B795: frmSplash.Label.Caption =
loc_47B7A0: Else
loc_47B7A8: Me.Visible = True
loc_47B7AD: End If
loc_47B7AD: End If
loc_47B7AD: End If
loc_47B7AD: End If
loc_47B7AD: Exit Sub