ListView в VB 6.0

[Cannibal]

нужно сделать такое задание


У меня не получается заполнить ListViiew так как надо

Private Sub Form_Load()
Dim r, m, j As Integer
Module1.New_Seans
For j = 1 To Count_S
  Cmb_S.AddItem (M_Seans(j).timex)
Next j
'Cmb_S.ListIndex = 0
j_seans = 1
For m = 1 To Count_M
 
 List_View.ColumnHeaders(m).Text = Str(m)
Next m
For r = 1 To Count_R
  List_View.ListItems.Add r, Trim(Str(r)) + " ряд "
Next r
For m = 1 To Count_M
  View_All_2 (m)
Next m
End Sub


Private Sub View_All_2(i_col As Integer)
Dim r As Integer, s As String

'List_View.ListItems.Remove (i_col)
For r = 1 To Count_R
  If M_Seans(j_seans).Mas_Mest(r, i_col) Then
    s = "X"
  Else
    s = "+"
  End If
 k = List_View.ColumnHeaders.Count
 k = List_View.ListItems.Count
  List_View.ListItems.Item(r).SubItems(i_col) = s
  If s = "X" Then
    List_View.ListItems.Item(i_col).SubItems(r - 1) = True
  End If
Next r
End Sub

Private Sub Cmd_Exit_CIick()
  End
End Sub

Private Sub Cmb_S_Click()
Dim m As Integer
j_seans = Cmb_S.ListIndex + 1
For m = 1 To Count_M
  View_All_2 (m)
Next m
End Sub

Private Sub Cmd_Stat_Click()
Form_Stat.Show 1
End Sub

Private Sub List_View_Click()
Dim i_row As Integer
If M_Seans(j_seans).Count_M_free >= 0 And Index <= Count_M Then
  i_row = List_View.SelectedItem.Index + 1
  If Not M_Seans(j_seans).Mas_Mest(i_row, List_View.SelectedItem.Index) Then
    M_Seans(j_seans).Mas_Mest(i_row, List_View.SelectedItem.Index) = True
    M_Seans(j_seans).Count_M_free = M_Seans(j_seans).Count_M_free - 1
    View_All_2 (List_View.SelectedItem.Index)
  End If
End If
End Sub

module 1

Attribute VB_Name = "Module1"
Public Const Count_S = 4
Public Const Count_R = 7
Public Const Count_M = 10
Public Type TSeans
  timex As String
  Count_M_free As Integer
  Mas_Mest(1 To Count_R, 1 To Count_M) As Boolean
End Type
Public j_seans As Integer
Public M_Seans(1 To Count_S) As TSeans

Public Sub New_Seans()
Dim r, m, j As Integer
For j = 1 To Count_S
  M_Seans(j).Count_M_free = Count_R * Count_M
  M_Seans(j).timex = Str(10 + 3 * (j - 1)) + ":30"
  For r = 1 To Count_R
    For m = 1 To Count_M
      M_Seans(j).Mas_Mest(r, m) = False
    Next m
  Next r
Next j
End Sub

прога во вложении