Public Sub showLeseErgebnis(status As Int) As ResumableSub
Dim txt As String
Select status
Case Lizenz.DATEISTATUS_OK: txt = "Lizenz wurde gespeichert."
Case Lizenz.DATEISTATUS_WRONGPROG: txt = "Die Lizenz-Datei gehört nicht zu " & sProgLizenzName
Case Lizenz.DATEISTATUS_NOCHECK: txt = "MAC Adresse und IMEI sind nicht verfügbar, Lizenz kann nicht geprüft werden!" & CRLF & _
"Das WLAN muss zur Prüfung eingeschaltet sein!"
Case Lizenz.DATEISTATUS_WRONGMAC: txt = "Die Lizenz-Datei gehört nicht zu diesem Gerät mit MAC: " & ALLG.GetDeviceMAC
Case Lizenz.DATEISTATUS_WRONGIMEI: txt = "Die Lizenz-Datei gehört nicht zu diesem Gerät mit IMEI: " & ALLG.GetDeviceId
Case Lizenz.DATEISTATUS_WRONGKEY: txt = "Der Lizenz-Key ist falsch, bitte an Support wenden."
Case Else: txt = "Interner Fehler: Status " & status
End Select
Dim sf As Object = Msgbox2Async(txt, "Lizenzprüfung", "OK", "", "", LoadBitmap(File.DirAssets, "btn_info.png"), False)
Wait For (sf) MsgBox_Result (Result As Int)
Return 0
End Sub