vb.6.0 二维数组逆时针翻转90度

Dim b(4, 4)
Dim b1(4, 4)

Private Sub fz()
   For i = 0 To 3
        For j = 0 To 3
            b1(i, j) = b(3 - j, i)
        Next j
    Next i
    
    For i = 0 To 3
        For j = 0 To 3
           b(i, j) = b1(i, j)
        Next j
    Next i
End Sub