Alright sir the error was runtime soemthing on my mac, but i get not crash now, only the app start "jumping" and not ipening and show the realbasic "executated" window where is this code, HIGHLITED the code :"Raise new ProductDetailsException":Thansk for some help._________________________________________________________________________________________Function IsGenuine(daysBetweenChecks As UInt32, graceDaysOnInetErr As UInt32, Optional skipOffline As Boolean = false, Optional offlineShowInetErr As Boolean = false) As IsGenuineResult ' Checks whether the computer is genuinely activated by verifying with the LimeLM servers. Dim options As GENUINE_OPTIONS options.nLength = 16 options.nDaysBetweenChecks = daysBetweenChecks options.nGraceDaysOnInetErr = graceDaysOnInetErr options.flags = 0 If skipOffline Then options.flags = TA_SKIP_OFFLINE If offlineShowInetErr Then options.flags = options.flags Or TA_OFFLINE_SHOW_INET_ERR End If End If #if TargetWin32 Declare Function IsGenuineEx Lib TALibrary (ByVal versionGUID As WString, ByRef options As GENUINE_OPTIONS) As Int32 #else Declare Function IsGenuineEx Lib TALibrary (ByVal versionGUID As CString, ByRef options As GENUINE_OPTIONS) As Int32 #endif Dim ret As Int32 = IsGenuineEx(VersionGUID, options) Select Case ret Case 4 ' TA_E_INET Case 21 ' TA_E_INET_DELAYED Return IsGenuineResult.InternetError Case 7 ' TA_E_GUID Raise new GUIDMismatchException Case 8 ' TA_E_PDETS Raise new ProductDetailsException Case 11 ' TA_E_COM Raise new COMException Case 13 ' TA_E_EXPIRED Raise new DateTimeException(False) Case 17 ' TA_E_IN_VM Return IsGenuineResult.NotGenuineInVM Case 19 ' TA_E_INVALID_ARGS Raise new InvalidArgsException Case 22 ' TA_E_FEATURES_CHANGED Return IsGenuineResult.GenuineFeaturesChanged Case 0 ' is activated Return IsGenuineResult.Genuine End Select ' not genuine (TA_FAIL, TA_E_REVOKED, TA_E_ACTIVATE) Return IsGenuineResult.NotGenuineEnd Function