测试没问题啊，关键是红色代码，用来绘制圆圈和数字的。

Dim cnt As Integer = e.Form.Controls("NumericComboBox1").Value

Dim img = getimage("d:\\test.ico")
Dim bmp As new bitmap(48, 48) \'宽高
Dim g = graphics.fromimage(bmp)
g.DrawImage(img,0,0)
g.DrawEllipse(Pens.red,30,2,15,15)
Dim fnt As New Font("宋体",10)
g.DrawString(cnt,fnt,Brushes.Black,32,4)
bmp.save("d:\\test2.png")
bmp.dispose

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.AddLargeImage("Man", "d:\\test.ico") \'添加代表男性的一对图标
lvw.Images.AddLargeImage("Man2", "d:\\test2.png") \'添加代表女性的一对图标
For i As Integer = 1 To 2
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    vr.Text = "张三" & i  \'设置标题
    If i=1 Then \'设置分组
        vr.ImageKey = "Man"
    Else
        vr.ImageKey = "Man2"
    End If
Next
lvw.ResumeRedraw() \'恢复绘制