Sub t1_Tick ' sms
Dim i As Int
If xe > 3 OR xe < -3 Then
For i = 1 To 3
Log (i)
If i = 3 Then
t1.Enabled=False
s.Send(EditText2.text,EditText1.Text)
End If
Next
Else If ye > 3 OR ye < -3 Then
For i = 1 To 3
If i = 3 Then
Log (i)
t1.Enabled=False
s.Send(EditText2.text,EditText1.Text)
End If
Next
End If
End Sub