Помогите с путём к программе и PictureBox

[Dropter]

Как узнать путь к своей программе и за одно не подскажете как зделать чтобы рисунок уменьшался до размера рамки PictureBox. Спасибо!

[RayShade]

RTFM!

У PictureBoх есть проперь AutoSize поставь ее True

Путь к программе App.Path

[Dropter]

Благодарен за подскаску с путём, оказуется так просто!
Но с PictureBox ты меня не совсем понял, то что ты посоветовал увеличивает сам PictureBox, а мне надо чтобы рисунок уменшался до размера PictureBox.

[_NeoN_]

смотри API Stretch BLT

[Max!]

Врать не буду код не мои!

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

Dim tmpPic As StdPicture
Set tmpPic = LoadPicture("C:\Picture.bmp")
Call Form1.PaintPicture(tmpPic, 100, 200)


[Dropter]

Спасибо за совет, работает только при обновление рисунок исчезает, я придумал по другому чтобы рисунок не исчезал, надо поместить object Image1 в object PictureBox1 и поставить в Image1 свойство Stretch как True и загрузить рисунок: Image1.Picture = LoadPicture("name_picture").

[SmarT]

Не совсем то. Чтобы было правильно и пикчербоксе, надо юзать метод scale.