With Picture1
.ScaleMode = vbPixels
'Выставляем требуемый размер
.Height=120
.Width=160
'Загружаем рисунок:
.PaintPicture LoadPicture(FileNamePicture), 0, 0, .ScaleWidth, .ScaleHeight
'Сохроняем измененый рисунок
SavePicture(.Image, NewFileNamePicture)
End With
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 88