Private hGrid As GridView
Private aValue As Integer[] = [-1, -1, -1, 0, 0, -1, -1, 0, 0, -1, -1, 0, 0, 0, -1, 0, 0, -1, -1, 0]
Public Sub Form_Open()
With Me
.Arrangement = Arrange.Vertical
.Margin = True
End With
With hGrid = New GridView(Me) As "GridView1"
.Expand = True
.Columns.Count = 2
.Rows.Count = aValue.Count
.Rows.Height = 24
.Columns.Width = 24
End With
End
Public Sub GridView1_Draw(X As Integer, Y As Integer, Width As Integer, Height As Integer, Row As Integer, Column As Integer)
If Column = 0 Then
Style.PaintCheck(x, y, Width, height, aValue[Row])
Endif
End
Public Sub GridView1_Data(Row As Integer, Column As Integer)
hGrid.Refresh
End