提示编译错误，用户定义类型未定义，怎么解决

迹无痕123

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    On Error GoTo myerr    ' 错误处理
    ListView1.SortKey = ColumnHeader.Index - 1   ' 设定排序值的索引，sortkey是从0开始的，所以要减1
    If ListView1.SortOrder = lvwDescending Then   ' 当前是否为降序
        ListView1.SortOrder = lvwAscending       ' 按升序
    Else
        ListView1.SortOrder = lvwDescending      ' 按降序
    End If
    ListView1.Sorted = True                      ' 激活listview排序
myerr:        ' 错误处理
    Exit Sub
End Sub

提示编译错误，用户定义类型未定义，怎么解决