Sub SendSms(PhoneNumber As String, Text As String)
Dim In As Intent
In.Initialize(In.ACTION_VIEW, "sms:" & PhoneNumber)
In.PutExtra("sms_body", Text)
StartActivity(In)
End Sub

Sub Open Gallery(PicAdress As String , FileName As String)
Dim In As Intent
Dim AD As String

AD = "file://" PicAdress & "/" & FileName

In.Initialize(In.ACTION_VIEW , AD)
In.SetType("image/jpeg")
StartActivity(In)
End Sub

Dim In As Intent
In.Initialize("android.media.action.IMAGE_CAPTURE", "")
StartActivity(In)