Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.LoadLayout("main")
cfchanged = False
cbchanged = False
im.Initialize("im")
pe.InitializeWithPhoneState("pe",pid)
inconfig = False
offhook = False
Tds.Initialize("Tds") 'TTS object
vr.Initialize("vr") 'Voice recognition object
If vr.IsSupported Then
vr.Prompt = "Contact name"
vrok = True
Else
vrok = False
End If
getcfg
getcontacts
dialpnl.Color = crec.pback
End Sub