ASPPainter::Rotate::Vertical.vbs
Dim im
Set im = CreateObject("ASPPAinter.Pictures.1")
im.SetBKColor 255,0,0,255
im.Create 300,300
im.SetColor 255,255,255,255
im.SetColor 194,194,194,255
im.DrawFilledRectangle 10,10,50,20
im.VerticalFlip
im.saveToFile "C:\vertical.png"
im.Destroy
Set im = Nothing
 |
Picture 1. vertical.png |
More samples:
Horizontal,
Mirror, Rotate,
Vertical
See also:
LoadFile,
Width, Height ,
MakeThumbnail , SetFormat
, SaveToFile ,
DestroyALL