VB Code:
Me.ListView1.Arrange = lvwAutoLeft
Dim itmX As ListItem
Me.ListView1.ColumnHeaders.Add 1, "Name", "Inventory Reports", 4500
Me.ListView1.ColumnHeaders.Add 2, "Description", "Description", 6000
' LOAD UP REPORT NAMES
Set itmX = Me.ListView1.ListItems.Add(1, , "On-Job Inventory", 1, 1)
itmX.SubItems(1) = "Total Consigned Inventory (On-Job Listing)"
Set itmX = Me.ListView1.ListItems.Add(2, , "Idle Inventory...", 1, 1)
itmX.SubItems(1) = "Idle Inventory Options"
Set itmX = Me.ListView1.ListItems.Add(3, , "In-Use Inventory", 1, 1)
itmX.SubItems(1) = "Total In-Use Inventory (On-Rent Listing)"
Set itmX = Me.ListView1.ListItems.Add(4, , "In-Use by Category", 1, 1)
itmX.SubItems(1) = "Total In-Use by Product Categories"
Set itmX = Me.ListView1.ListItems.Add(5, , "In-Use Inventory Averages...", 1, 1)
itmX.SubItems(1) = "Inventory Averages Options"
Set itmX = Me.ListView1.ListItems.Add(6, , "Usages...", 1, 1)
itmX.SubItems(1) = "Inventory Usages Options"
Set itmX = Me.ListView1.ListItems.Add(7, , "Part Transfer Analysis", 1, 1)
itmX.SubItems(1) = "Transfer Listing for a Part Number"
Set itmX = Me.ListView1.ListItems.Add(8, , "Daily Usage Level", 1, 1)
itmX.SubItems(1) = "Usage by Part Listing On-Job, In-Use, Idle, and Usages"
Set itmX = Me.ListView1.ListItems.Add(9, , "Part Usage Analysis", 1, 1)
itmX.SubItems(1) = "Usages for a selected Part"
Set itmX = Me.ListView1.ListItems.Add(10, , "Inventory ERP Comparasion", 1, 1)
itmX.SubItems(1) = "ERP vs Site Quantity Comparasions"
Set itmX = Me.ListView1.ListItems.Add(11, , "Inventory Random Audit List", 1, 1)
itmX.SubItems(1) = "Random Listing of Equipment for Audit Purposes"
Set itmX = Me.ListView1.ListItems.Add(12, , "In-Use Inventory by ERP Number", 1, 1)
itmX.SubItems(1) = " In-Use Inventory (On-Rent Listing) by Client"
Set itmX = Me.ListView1.ListItems.Add(13, , "In-Use Utilization by ERP Number", 1, 1)
itmX.SubItems(1) = "Usage Summary for Each Client"
Set itmX = Me.ListView1.ListItems.Add(14, , "Part Tag / Scaffold Analysis", 1, 1)
itmX.SubItems(1) = "Tag / Scaffold Listing for a Part Number"
Set itmX = Me.ListView1.ListItems.Add(15, , "Daily Usage Level Analysis", 1, 1)
itmX.SubItems(1) = "Analyze Least / Most Utilized Parts"
Set itmX = Me.ListView1.ListItems.Add(16, , "MOST Utilized Parts Analysis", 1, 1)
itmX.SubItems(1) = "Analyze MOST Utilized Parts"
Set itmX = Me.ListView1.ListItems.Add(17, , "LEAST Utilized Parts Analysis", 1, 1)
itmX.SubItems(1) = "Analyze LEAST Utilized Parts"