Sub CallUSSD(Command As String,Operator As Int)
Dim i As Intent
i.Initialize(i.ACTION_CALL, "tel:" & Command.Replace("#", "%23"))
i.PutExtra("com.android.phone.extra.slot", Operator)
i.Flags = 268435456
StartActivity(i)
End Sub
Sub btcontinuarsending_Click
If spnType.SelectedIndex = 0 Then
OrangeURI = "*800*1#"
If spnSimNumber.SelectedIndex = 0 Then
CallUSSD(OrangeURI ,0)
Else if spnSimNumber.SelectedIndex = 1 Then
CallUSSD(OrangeURI ,1)
End If
Else if spnType.SelectedIndex = 1 Then
MtnURI = "*436*4#"
If spnSimNumber.SelectedIndex = 0 Then
CallUSSD(MtnURI ,0)
Else if spnSimNumber.SelectedIndex = 1 Then
CallUSSD(MtnURI ,1)
End If
End If
End Sub