Dim thr As Thread
Dim MyMap As Map
MyMap.Initialize()
thr.Initialise("THR")
thr.Start(Null, "SetInitialLanguage", Array As Object(MyMap))
Sub SetInitialLanguage(mapobj As Object)
Dim count1 As Int
count1 = 0
Do While (count1 <= 10)
count1 = count1 + 1
Loop
End Sub