Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Dim tabHostExtra As TabHostExtras
StartService(sqlManager)
If DBUtils.TableExists(sqlManager.sql, "category") = False Then
CreateTables
End If
Activity.LoadLayout("main")
appTabs.AddTab("Generate", "createPassword")
appTabs.AddTab("Passwords", "passwordList")
appTabs.AddTab("Settings", "settings")
tabHostExtra.setTabTextSize(appTabs, 8.0)
tabHostExtra.setTabHeight(appTabs, 50)
For i = 1 To 20
Dim pd As PasswordData
pd.Initialize
pd.Category = "Category " & i
pd.Name = "Name " & i
CustomListView1.Add(CreateItem(pd), pd)
Next
End Sub