LL.Initialize(Activity.Height, Activity.Width, "LL")
LL.SetTheme(LL.Theme_HoloLight) ' Sets to Light theme if Holo Not Available
Activity.AddView(LL, 0, 0, Activity.Width, Activity.Height)
LL.SetPadding(4dip, 8dip)
LL.SetSize(LL.Size_WrapContent, LL.Size_WrapContent)
LL.AddLabel("", "", "Type:", 18, True, 1, Colors.Red, "Type", 0)
LL.NextPos
LL.SetSize(LL.Size_MatchParent, LL.Size_WrapContent)
LL.AddCombobox("Type", "", "Select Party Type", "Party Type", 18, Colors.Black, True, Array As String("Suspect", "Victim", "Witness", "Prisoner"), Null, LL.GetBackgroundResourceID("comboboxenabled"))
LL.NextLine
LL.SetSize(LL.Size_WrapContent, LL.Size_WrapContent)
LL.AddLabel("", "", "First Name:", 18, True, 1, Colors.Black, "FirstName", 0)
LL.NextPos
LL.SetSize(LL.Size_MatchParent, LL.Size_WrapContent)
LL.AddTextbox("FirstName", "", LL.DataType_Uppercase_Words, "", LL.ActionBtn_Next, 0, 30, 1, "", 18, Colors.Black, "First Name", Colors.Gray, Null, LL.GetBackgroundResourceID("editenabled"), "MiddleName", "")
LL.NextLine
LL.SetSize(LL.Size_WrapContent, LL.Size_WrapContent)
LL.AddLabel("", "", "Middle Name:", 18, True, 1, Colors.Black, "MiddleName", 0)
LL.NextPos
LL.SetSize(LL.Size_MatchParent, LL.Size_WrapContent)
LL.AddTextbox("MiddleName", "", LL.DataType_Uppercase_Words, "", LL.ActionBtn_Next, 0, 30, 1, "", 18, Colors.Black, "Middle Name", Colors.Gray, Null, LL.GetBackgroundResourceID("editenabled"), "LastName", "")
LL.NextLine
LL.SetSize(LL.Size_WrapContent, LL.Size_WrapContent)
LL.AddLabel("", "", "Last Name:", 18, True, 1, Colors.Black, "LastName", 0)
LL.NextPos
LL.SetSize(LL.Size_MatchParent, LL.Size_WrapContent)
LL.AddTextbox("LastName", "", LL.DataType_Uppercase_Words, "", LL.ActionBtn_Next, 0, 30, 1, "", 18, Colors.Black, "Last Name", Colors.Gray, Null, LL.GetBackgroundResourceID("editenabled"), "Alias", "")
LL.NextLine
LL.SetSize(LL.Size_WrapContent, LL.Size_WrapContent)
LL.AddLabel("", "", "Alias:", 18, True, 1, Colors.Black, "Alias", 0)
LL.NextPos
LL.SetSize(LL.Size_MatchParent, LL.Size_WrapContent)
LL.AddTextbox("Alias", "", LL.DataType_Uppercase_Words, "", LL.ActionBtn_Next, 0, 30, 1, "", 18, Colors.Black, "Alias", Colors.Gray, Null, LL.GetBackgroundResourceID("editenabled"), "", "")
LL.NextLine