Sub Activity_Create(FirstTime As Boolean)
..........
TabHost1.AddTab("ΤΑΥΤΟΤΗΤΑ", "Client_info_TAFTOTHTA.bal")
TabHost1.AddTab("ΕΜΠΟΡΙΚΟ", "Client_info_EMPORIKO.bal")
TabHost1.AddTab("ΔΙΕΥΘΥΝΣΕΙΣ", "Client_info_DIEFTHYNSEIS.bal")
ClientAddresses
End Sub