If FirstTime Then
Dim lc As LicenseChecker
Dim p As PhoneId
lc.Initialize("lc", p.GetDeviceId, publicKey, "k.......".GetBytes("UTF8"))
lc.SetVariableAndValue("test1", "vtest1")
lc.CheckAccess
End If
You should be able to test the license through the market developer console .
Note that if you use obfuscation then you should rename test1 variable to test_1 (otherwise it will be renamed by the obfuscator and not found at runtime).