Dim AllreadyInstall As Boolean
    Dim DaysLeft As String
    AllreadyInstall = CBool(DeCrypt(GetSetting"MyApp", "MyKey", "MyString", _
      "DGGJFD"), "**************"))
    DaysLeft = DeCrypt(GetSetting("MyApp", "MyKey", "MyString", "DGGJDF"), _
    "**************")
    DaysLeft = DaysLeft - 1
    SaveSetting "MyApp", "MyKey", EnCrypt(DaysLeft, "**************")
    If AllreadyInstall = True Then
        DaysLeft = 0
    End If
    If DaysLeft > 0 Then
        Me.lblTimeLeft.Caption = "Sie haben noch Zeit!"
        Me.Timer1.Enabled = True
    Else
        MsgBox "Sie müssen dieses Programm deinstallatieren", vbInformation + _
          vbOKOnly
        Me.Timer1.Enabled = False
        Me.cmdOK.Caption = "&Beenden"
        Me.cmdOK.Enabled = True
        Me.lblTimeLeft.Caption = "Das Programm wird in 10 Sekunden automatisch" & _
          "beendet!"
        SaveSetting "MyApp", "MyKey", "MyString", MySetting
    End If