Sub cmdHerramientas_Click
Dim i As Intent
Try
' i.Initialize("","")
' Dim jo As JavaObject = i
' jo.RunMethod("setPackage", Array("netsistemas.fricaltecgases"))
i.Initialize(i.ACTION_VIEW ,"")
i.SetPackage("perico.app2")
i.SetType("*/*")
StartActivity(i)
Catch
Log(LastException)
Msgbox(LastException.Message,"")
End Try
End Sub