¡Problema de rotación de imágenes en VB6!

Encontré el problema, modifíquelo de la siguiente manera:

Private Sub Form_Load()

Image1.Stretch = True

Picture1.AutoRedraw = True

Picture2.AutoRedraw = True

Picture2.Visible = False

Para x = 0 a Picture1.ScaleWidth Step Screen.TwipsPerPixelX

Para y = 0 A Picture1.ScaleHeight Paso Screen.TwipsPerPixelY

Picture2.PSet (Picture1.ScaleHeight - y, x), Picture1.Point(x, y)

Siguiente y

Siguiente x

Imagen2.Imagen = Imagen2.Imagen

Imagen2.Visible = Verdadero

Fin Sub

Private Sub Command1_Click()

Si Len(Command1.Tag) Entonces

Imagen1.Imagen = Imagen2.Imagen

Imagen1.Width = 60 * Pantalla .TwipsPerPixelX

Imagen1.Height = 50 * Screen.TwipsPerPixelY

Command1.Tag = ""

Else

Imagen1.Picture = Imagen1. Imagen

Imagen1.Width = 50 * Screen.TwipsPerPixelX

Imagen1.Height = 60 * Screen.TwipsPerPixelY

Command1.Tag = 1

Finalizar si

Fin Sub