Stretch при загрузке

[Armageddon[SN]]

Подскажите кто-нить плз ламке как при такой загрузке:
Private Sub Form_Load()
Set Image1.Picture = LoadPicture(App.Path & "\pictures\from book\b1-1\ships.jpg")
End Sub
Мелкий рисунок растянулся на всю форму, хотя в с-вах и стоит stretch = true, но все равно он не растягивается.

[Armageddon[SN]]

Сорри за опечатку - рисунок как раз таки НЕ растянулся на форму а по идее (если просто в с-вах picture указать ему путь) должон.

[Kostyan]

Не понял...
когда ты ставишь свойство Stretch у Image, рисунок растягивается на весь Image а не на форму, для того чтобы он растянулся на всю форму нужно сделать Image размером с форму.

[Armageddon[SN]]

Так, есть 2 случая: 1 - в имадж уже загружена картинка и если загрузить во время выполнения программы другую то все нормально - при вклученном стреч она вписывается в рамки старой и 2-й случай : изначально картинка в Image НЕ загруженна тогда когда аналогичным способом ее загружаешь она несмотря на Strech растягивает Image на свой размер хотя по-идее должно быть наоборот - так вот как сделать чтоб при загрузке в пустой image она автоматически на него растягиваась?

[Amed]

Изначально Image1.Stretch = False

а) загружаешь в Image1 картинку
б) делаешь Image1.Stretch = True
в) растягиваешь Image до размеров формы (Image1.Move 0, 0, Me.Width, Me.Height)