vb中如何通过树形观察设置shape的fillcolor

'怎样利用vb中的shape来编写
'先在 Form 中创建一个 Shape1 数组，只留下 Shape1(0)，其他删掉。
Private Sub Form_Load()
    Dim a As Integer
    a = Shape1(0).Height
    Shape1(0).Width = Shape1(0).Height
    
    Dim i As Integer, j As Integer, k As Integer
    For i = 1 To 19
        For j = 1 To 19
            k = (i - 1) * 19 + j
            Load Me.Shape1(k)
            With Shape1(k)
                If k Mod 2 = 0 Then
                    .BackStyle = 1
                    .BackColor = 0
                End If
                .Top = (i - 1) * a
                .Left = (j - 1) * a
                .Visible = True
            End With
        Next
    Next
End Sub

var precision = (curPt.lng - point.lng) * (nextPt.lat - point.lat) -
(nextPt.lng - point.lng) * (curPt.lat - point.lat);
if(precision < 2e-10 && precision > -2e-10){//
return true;