I have created a list view on a form and added the imgVLsort control,
when I try to load the form I get the Run-time error 35601 Element not
found. Here is my code;

Private Sub Form_Load()


'---------------------------------------------------------------------------------------
' Procedure : Form_Load (Sub)
' Purpose : Initialization

'---------------------------------------------------------------------------------------
'modified by NE4848

Dim llngSaveCount As Long
Dim lblnProfileChecked As Boolean


Me.WindowState = VBRUN.vbMaximized
' get error object
Set myError = basMain.GetErrorObject
' get database connection
Set myDatabase = basMain.GetDatabaseObject
' application logging?
myError.Raise ERROR_REPORT_PUBLISH_STARTING,
"frmPublishMetricsReport:Form_Load", "Starting"
' prompt when cancel
mblnCancel = True
' prepare listview
lvwMetricsProfiles.Enabled = True
' redraw checkboxes, or they will remain gray
lvwMetricsProfiles.CheckBoxes = False
lvwMetricsProfiles.CheckBoxes = True
With lvwMetricsProfiles
.ColumnHeaders.Clear
' setup columns
.ColumnHeaderIcons = Nothing
.ColumnHeaderIcons = imgLVsort
'.ColumnHeaders.Count

.ColumnHeaders.Add , , "Profile Name", 3000, , "None"
.ColumnHeaders.Add , , "ReportID", 1300, MSComctlLib.lvwColumnLeft,
"None"
.ColumnHeaders.Add , , "W", 850, MSComctlLib.lvwColumnRight, "None"
.ColumnHeaders.Add , , "MW", 850, MSComctlLib.lvwColumnRight,
"None"
.ColumnHeaders.Add , , "SW", 850, MSComctlLib.lvwColumnRight,
"None"
.ColumnHeaders.Add , , "E", 850, MSComctlLib.lvwColumnRight, "None"
.ColumnHeaders.Add , , "Interval", 1300,
MSComctlLib.lvwColumnRight, "None"
.ColumnHeaders.Add , , "DueDate", 1300, MSComctlLib.lvwColumnRight,
"None"
.ColumnHeaders.Add , , "Priority", 1300,
MSComctlLib.lvwColumnRight, "None"
.ColumnHeaders.Add , , "Calendar", 1300,
MSComctlLib.lvwColumnRight, "None"
' columnheader icons
.ColumnHeaders(LV_RPT_ID).Tag = 0
.ColumnHeaders(LV_RPT_ID).Icon = "Ascending"
' other settings
.AllowColumnReorder = True
' A bug:
http://support.microsoft.com/support/kb/articles/q143/4/06.asp
.Arrange = MSComctlLib.lvwAutoTop
.CheckBoxes = True
.FullRowSelect = True
.HideSelection = False
.LabelEdit = MSComctlLib.lvwManual
.MultiSelect = True
.Sorted = True
.View = MSComctlLib.lvwReport
End With 'lvwMetricsProfiles
' populate comboboxes
Combobox_Defaults
' disable run/prompt

cmdRun.Enabled = False
chkPrompt.Enabled = False
' disable cancel button
cmdCancel.Enabled = False
' call get_rpt_profiles to populate listview with current list of
report profiles.
If myDatabase.CallStoredProcedure("CPAT.GET_METRICS_RPT_PROFILES",
mrsTemp) 0 Then
myError.Raise ERROR_GENERIC, "frmPublishMetricsReport:Form_Load", _
"GET_METRICS_RPT_PROFILES database error", , True
MainEnd
End If
' 20050720 rl8419 begin handle no recordset error
If mrsTemp Is Nothing Then
' If mrsTemp.RecordCount = 0 Then
' 20050720 rl8419 end
myError.Raise ERROR_NOREPORT_PROFILES,
"frmPublishMetricsReport:Form_Load", _
"No Metrics Report Profiles, EXITING...", True, True
MainEnd
Else 'NOT MRSTEMP.RECORDCOUNT...
'LV_Profiles_Refilter
End If ' mrsTemp Is Nothing
' status bar
frmmdiMainGMCCA.UpdateStatusBar ("Choose Metrics Report Profile(s)")
lvwMetricsProfiles.Enabled = False

'01092005 NE4848 BEGIN
If blnSaveNReport Then
blnSaveNReport = False
' If lngSaveNReportInt = "M" Then
' cboInterval.text = "M"
' Else
' cboInterval.text = "Q"
' End If

For llngSaveCount = 1 To lvwMetricsProfiles.ListItems.Count
If
lvwMetricsProfiles.ListItems(llngSaveCount).ListSubItems(LV_RPT_ID).text
= lngSaveNReportID Then
lvwMetricsProfiles.ListItems(llngSaveCount).Checked = True
lblnProfileChecked = True
Exit For
End If
Next llngSaveCount

' If lblnProfileChecked = False Then
' cboInterval.text = "All"
' End If
End If
'01092005 NE4848 END

End Sub ' Form_Load()

I havve list views on several other forms and all have the same
properties etc. but no errors.

Archived from group: microsoft>public>vb>syntax