Dim lc As LicenseChecker
Dim pid As PhoneId
Dim pTaf_xxx_test_1 As String
lc.Initialize("lc", pid.GetDeviceId, publicKey, "xxx1011x".GetBytes("UTF8"))
lc.SetVariableAndValue("pTaf_xxx_test_1", "xxx1011xxxx")
lc.CheckAccess
Msgbox(pid.GetDeviceId,"GetDeviceId License")