Sub StartSPORTPebble
Dim I1 As Intent,P As Phone
I1.Initialize("com.getpebble.action.app.START", "")
I1.putExtra("uuid", "4dab81a6-d2fc-458a-992c-7a1f3b96a970")
P.SendBroadcastIntent(I1)
End Sub
Sub StopSPORTPebble
Dim I1 As Intent,P As Phone
I1.Initialize("com.getpebble.action.app.STOP", "")
I1.putExtra("uuid", "4dab81a6-d2fc-458a-992c-7a1f3b96a970")
P.SendBroadcastIntent(I1)
End Sub