Dim myThread As Thread
Dim Lock1 As Lock
....
Sub Activity_Create()
If myThread.IsInitialized =False Then
myThread.Initialise("myThread")
End If
End Sub
...
myThread.Name = "BackThread1"
Dim args(0) As Object
Lock1.Initialize(True)
myThread.Start(Null, "SavePhone", args)