Нужен List с чекбоксом с двумя и больше колонок - VB

Public Function SaveInRegistrAllSetting(Frm As Form, NameGroup As String) 
If NameGroup = "" Then NameGroup = VB.App.Title
  Dim Elem As Object
  Dim s As String
  Dim m As String
  Dim z As String
  Dim i As Long
  Dim mx As Long
  Dim plmax As Long
  Dim ipl As Long
  For Each Elem In Frm.Controls
   If IsObject(Elem) = True Then
    s = TypeName(Elem)
    m = Elem.TAG
      If m <> "" Then
        If s = "TextBox" Or s = "ComboBox" Then
          z = Elem.text
            SaveSetting NameGroup, "Налаштування", m, z
        ElseIf s = "CheckBox" Then
          z = IIf(Elem.value = 0, "Виключено", "Включено")
            SaveSetting NameGroup, "Налаштування", m, z
        ElseIf s = "ListView" Then
         SaveSetting NameGroup, "Налаштування", m & ":mx=", CStr(Elem.ListItems.Count)
         For i = 1 To Elem.ListItems.Count
          z = Elem.ListItems.Item(i).text
          SaveSetting NameGroup, "Налаштування", m & ":p=" & Right("000" & CStr(i), 4), z
           For ipl = 1 To Elem.ListItems.Item(i).ListSubItems.Count
             z = Elem.ListItems.Item(i).ListSubItems(ipl).text
             SaveSetting NameGroup, "Налаштування", m & ":r=" & CStr(ipl) & ":p=" & Right("000" & CStr(i), 4), z
           Next
          If Elem.Checkboxes Then
            z = IIf(Elem.ListItems.Item(i).Checked, "Включено", "Виключено")
            SaveSetting NameGroup, "Налаштування", m & ":ch=" & Right("000" & CStr(i), 4), z
          End If
         Next
        End If
      End If
   End If
  Next
  SaveSetting NameGroup, "Налаштування", "Запущено не перший раз", "Так"
  Pbl_Progr_zapushenaDrugiyRaz = True
End Function