If sevLock_IsRegistered() = 0 Then
        ' ACHTUNG! Systemdatum wurde umgestellt!
        If nResult = ErrorCode_WrongDate Then
            MsgBox strText, vbExclamation + vbOKOnly, ""
            ' jetzt Testversion sperren
            sevLock_SetExpired 1
            frmRegistrierung.Show vbModal
            Exit Function
        End If
 
        If sevLock_HasExpired() <> 0 Then
            ' Wenn die Zeit der Testzeit abgelaufen...
            ' Hier den Registrier-Dialog aufrufen
            If MsgBox("Die Testzeit ist abgelaufen!" & vbCrLf & vbCrLf & _
                "Möchten Sie jetzt die Vollversion registrieren?", vbYesNo + _
                vbInformation, "") = vbYes Then
                ' Registrierformular öffnen
                frmRegistrierung.Show vbModal
            End If
            Exit Function
        End If
 
        If sevLock_DaysUsed() >= 30 Then
            ' Falls Anwendung an mind. 30 Tagen gestartet, Testzeit beenden
            sevLock_SetExpired 1
            If MsgBox("Die Testzeit ist abgelaufen!" & vbCrLf & vbCrLf & _
                      "Möchten Sie jetzt die Vollversion registrieren?", _
                      vbYesNo + vbInformation, "") = vbYes Then
                frmRegistrierung.Show vbModal
                Exit Function
            End If
        Else
            frmHaupt.Show vbModal
        End If
    Else
        frmHaupt.Show vbModal
    End If