Sub GetUpdateDate(Package As String) As Double
Dim r As Reflector
r.Target = r.GetContext
r.Target = r.RunMethod("getPackageManager")
r.Target = r.RunMethod3("getPackageInfo", Package, "java.lang.String", 0x00000001, "java.lang.int")
Return r.GetField("lastUpdateTime")
End Sub