Cómo rotar una matriz 90 grados en sentido antihorario en VB

¿Opción?Explícita

Opción?Base?1

Dim?a(4,?4)?As?Entero

Privada ?Sub?Command1_Click()

Dim?i?As?Integer,?j?As?Integer

Imagen1.Cls

Aleatorizar

Para?i?=?1?A?4 Para?j?=?1?A?4

a(i,?j)?=?Int(Rnd?*?9)? +?1

Imagen1.Imprimir?a(i,?j); ¿Siguiente?j

Imagen1.Imprimir

Siguiente?i

Fin?Sub

Privado?Sub?Command2_Click()

Dim?i?As?Integer,?j?As?Integer

Dim?b (4,?4)?As?Integer

Imagen2.Cls

For?i?=?1?To?4 For?j?=?1?To?4 b (i,?j)?=?a(j,?i) Imagen2.Imprimir?b(i,?j?Siguiente?j Imagen2.Imprimir

Siguiente?i