use Third-party listview control Error

[Davider]

I want to achieve the following demonstration effect


The following link contains all the relevant files
1. Codejock.SuitePro.ActiveX.Eval.22.0.0 setup File
2. VB project code file

https://download.ru/files/ZtefhwQt

VB code(The code isn't very long, and I'd love to know the QM equivalents of some properties):

Code:

Copy      Help

VERSION 5.00
Object = "{A8E5842E-102B-4289-9D57-3B3F5B5E15D3}#22.0#0"; "Codejock.Controls.Unicode.v22.0.0.Demo.ocx"
Begin VB.Form Test
   Caption         =   "Test"
   ClientHeight    =   3825
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   5760
   LinkTopic       =   "Form1"
   ScaleHeight     =   3825
   ScaleWidth      =   5760
   StartUpPosition =   2  '
   Begin XtremeSuiteControls.ListView ListViewIcons
      Height          =   3615
      Left            =   2400
      TabIndex        =   1
      Top             =   120
      Width           =   3255
      _Version        =   1441792
      _ExtentX        =   5741
      _ExtentY        =   6376
      _StockProps     =   77
      BackColor       =   -2147483643
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Microsoft YaHei Mono"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      GridLines       =   -1  'True
      HoverSelection  =   -1  'True
      Appearance      =   5
      IconSize        =   24
   End
   Begin XtremeSuiteControls.PushButton PushButton1
      Height          =   1095
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   2175
      _Version        =   1441792
      _ExtentX        =   3836
      _ExtentY        =   1931
      _StockProps     =   79
      Caption         =   "Hello World"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
         Name            =   "Microsoft YaHei Mono"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Transparent     =   -1  'True
      Appearance      =   5
      Picture         =   "Form1.frx":0000
      TextImageRelation=   1
   End
End
Attribute VB_Name = "Test"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
    ListViewIcons.ListItems.Add , , "Settings", 1
    ListViewIcons.ListItems.Add , , "Find", 2
    ListViewIcons.ListItems.Add , , "Run", 3
    ListViewIcons.ListItems.Add , , "Help", 4
    
    ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaSettings.bmp", 1, xtpImageNormal
    ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaFind.bmp", 2, xtpImageNormal
    ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaRun.bmp", 3, xtpImageNormal
    ListViewIcons.Icons.LoadBitmap App.Path & "\Icons\AlphaHelp.bmp", 4, xtpImageNormal
End Sub