VB6 : Как сделать Picture меньшего размера чем данный?

[vigur]

VB6 : Как сделать Picture меньшего размера чем данный?

[SHURUP]

Не совсем понял вопрос..
Если имеется ввиду уменьшить изображение, то можно так:

Код: Выделить всё

Private Sub Form_Load()
'кинь на форму три Picturebox-a:
With Picture1
    .Picture = LoadPicture("C:\windows\lanmannt.bmp")
    .AutoSize = True
    .Move 0, 0
End With
With Picture2
    .AutoRedraw = True
    .Move 0, Picture1.Height, Picture1.Width * 2, Picture1.Height * 2
    .PaintPicture Picture1, 0, 0, Picture1.ScaleWidth * 2, Picture1.ScaleHeight * 2, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbSrcCopy
End With
With Picture3
    .AutoRedraw = True
    .Move Picture1.Width, 0, Picture1.Width / 2, Picture1.Height / 2
    .PaintPicture Picture1, 0, 0, Picture1.ScaleWidth / 2, Picture1.ScaleHeight / 2, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, vbSrcCopy
End With
End Sub

А если уменьшить контрол picture - то еще проще:
Picture1.Width=Picture1.Width/2
Picture1.Height=Picture1.Height/2