Как обратиться к элементу массива слайдов для анимирования точек сегмента сферы?

    Private Function Matrix_From_Radiys(ByVal v As Vector3) As Matrix
 
        Dim v_norm As Vector3 = Math2.Normalize(v)
 
        Dim q As Vector4 = Math2.Quaternion_From_Yaw_Pitch_Roll(Math.Asin(v_norm.Y), Math.Acos(v_norm.X), Math.Atan(v_norm.Z))
 
        Return Math2.Quaternion_To_Matrix(q)
 
    End Function
 
    Private Function Shoot_Radian(ByVal centr As Vector3, ByVal r As Single,
                                  ByVal n As Vector3) As Boolean 'Тут пускаем луч
 
        'Нужно знать диаметр большой сферы из сфер и взять чуть больше, также шаг должен быть меньше радиуса маленьких сфер
 
        Dim start As Vector3 = n * 100
 
        For i As Int32 = 0 To 200
 
            Dim d As Vector3 = start - n * i ' * радиус маленькой сферы / 2.0f
 
            If r * r >= Math.Sqrt((d.X - centr.X) ^ 2.0F + (d.Y - centr.Y) ^ 2.0F + (d.Z - centr.Z) ^ 2.0F) Then
 
                Return True
 
            End If
 
 
        Next
 
        Return False
 
        'Можно конечно спроецировать центр сферы на плоскость, но это сложней в понимании.
 
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim r As Vector3 = New Vector3(0.0F, 1.0F, 0.0F) 'Точка на сфере, в твоем случае - это центр твоей случайной сферы.
 
        Dim collision_v As Vector3 = New Vector3(-1.0F, 0.0F, 0.0F) 'пускаемый луч, проще будет просто подобрать 8 таких
 
        Dim sphere_m As Matrix = Me.Matrix_From_Radiys(r) 'превращаем радиус в матрицу
 
        Dim bind As Matrix = Me.Matrix_From_Radiys(collision_v) 'Биндим луч
        bind.Invert()
 
        Dim n As Vector3 = Math2.XYZ(Math2.Mul(bind * sphere_m, New Vector4(collision_v.X, collision_v.Y, collision_v.Z, 1.0F))) 'Получаем трансформированный вектор луча
 
        n = Math2.Normalize(n) 'направление луча
 
 
        'Далее пробегаемся по массиву сфер, проверяем пересекла ли прямая сферу Shoot_Radian
        'Будет получаться 1-2 сферы, нужно выбрать ближайшую к точке на сфере(дистанция между 2мя точками)
 
        'Ну вобщем-то както так...
 
    End Sub