Sub button_click
Dim pm As PackageManager
Dim in As Intent
Dim packages As List
in.Initialize("","")
'packages = pm.GetInstalledPackages
in=pm.GetApplicationIntent("com.sec.android.app.camera")
'For i = 0 To packages.Size -1
' Log(packages.Get(i))
'Next
If in.IsInitialized Then
cam.Release
StartActivity(in)
End If
End Sub