¿Cómo rotar imágenes en vb?

Girar 90 grados en sentido antihorario

Dim p()

ScaleMode = 3

Picture1.AutoRedraw = True

Picture1.ScaleMode = 3

w = Imagen1.ScaleWidth

h = Imagen1.ScaleHeight

ReDim p(w - 1, h - 1). Picture1.PSet (h - i - 1, j), p(j, i)

Gira 180 grados y cambia las últimas siete líneas a

For i = 0 To w - 1

Para j = 0 Para h - 1

Imagen1.PSet (i, j), p(w - i - 1, h - j - 1)

Siguiente j

Siguiente i