Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim contact As Map
End Sub
...
Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
contact.Initialize
...
End Sub
...
Sub okID_Click
...
NewIDAdded
...
End Sub
...
Sub NewIDAdded
...
contact.Put(WhichSocialNetwork,ID)
...
End Sub
...
Sub Done_Click
...
Main.Infos.Put(EditText1.Text,contact)
Activity.Finish
...
End Sub
...