Dim in As Intent
Dim pm As PackageManager
in = pm.GetApplicationIntent("com.skype.raider")
If in.IsInitialized Then StartActivity(in)
StartActivity(in)
Dim skypeno As String
dbSQL.Initialize(File.DirDefaultExternal, "Agents.db", True)
skypeno = dbSQL.ExecQuerySingleResult2("SELECT skypeid from Agents Where ID = ?",Array As String(Position))
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "skype:"& skypeno)
i.SetComponent("com.skype.raider")
i.PutExtra("confirm", "Yes")
StartActivity(i)